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It  was  the  intent  of  the  research  reported  here  to  develop,  using  preprocessing 
techniques,  extensions  to  FORTRAN  which  would  include:  m  the  extended  data 
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Variable  Precision  and  Interval  Arithmetic: 
Portable  Enhancements  to  FORTRAN 


Research  Agreement  No.  DAA  G?o-7P-r;-no^p 


1.  Background 

The  relationship  between  WPS#  USL  and  ARO  began  when  WFS  wanted 
to  examine  interval  arithmetic  as  a  tool.  It  was  booed  that 
interval  arithmetic  would  serve  as  a  valuable  tool  in 
ascertaining  the  reliability  of  values  producer*  by  application 
programs  in  use  at  WPS.  »  FORTRAN  implementation  of  interval 
arithmetic  had  been  developed  at  MRC  using  the  preprocessor 
AUGMENT  Cl  #2#3#4#5"i.  this  package  was  to  be  installed  at  both  'JSL 
and  WPS  for  the  purpose  of  determining  whether  or  not  interval 
arithmetic  would  be  a  tool  consistent  with  the  ooals  and 
interests  of  WES.  The  role  that  USL  played  concerned  the 
implementing  and  benchmarking  of  the  interval  arithmetic  package. 
This  involved  the  conversion  of  application  proorams  in  use  at 
WES  so  that  real  and  double  precision  computations  would  be 
performed  using  interval  arithmetic.  The  converted  proarams  were 
then  executed  ove r  a  ranqe  of  input  values.  The  purpose  was  to 
gauge  the  value  of  interval  arithmetic  in  the  certification  of 
each  program's  reliability.  This  evaluation  proved  successful  in 
that  a  data  sensitivity  was  uncovered  in  one  of  the  program'-,  t 
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USL  technical  report  T63  was  written  and  published  qivino  a 
description  of  this  work. 

During  this  period  there  were  two  separate  interval  arithmetic 
packages  implemented  at  USL.  The  *irst  of  these  was  the  mpr's 
single  precision  real  interval  package;  the  second  was  a  56 
decimal  digit  interval  package.  The  single  precision  real  version 
of  the  interval  arithmetic  packaqe  represented  values  as  two 
single  precision  real  numbers.  These  two  sinqle  precision  real 
numbers  are  considered  as  bounds  on  an  "exact”  but  possiMv  not 
machine  representable  value.  This  packaoe  is  well  described  in 
C73  . 

The  other  interval  arithmetic  package/'  the  56  decimal  dinit 
interval  version#  was  developed  here  at  U5L.  This  version  was 
based  on  the  59  decimal  digit  arithmetic  unit  of  the  Honeywell 
H68/8Q  computer  and  represents  the  endpoints  as  two  56  decimal 
digit  values.  All  testinq  of  algorithms  done  under  the  single 
precision  real  version  was  also  done  under  tM  s  version.  The 
results  and  a  description  of  the  implementation  are  to  be  found 
in  C8 3  . 

The  fact  that  the  56  decimal  diqit  interval  arithmetic  package 
was  hardware  based#  as  well  as  being  written  in  PL/1#  precluded 
its  beinq  transported  to  any  other  system.  However#  the  results 
of  work  with  this  packaqe  provided  valuable  insights  into  the 
effects  of  extending  the  precision  in  which  computations  are 
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performed.  It  gave  direction  to  the  research  that  was  to  *ollow. 

2.  Goals  and  Accomplishments 

It  was  the  intent  of  the  current  work  to  develop/  using 
preprocessing  techniques/  extensions  to  Fortran  which  would 
include: 

1)  the  extended  data  types  VPTNTFGFR,  VPPFAL, 

VPCOMPLPX  and  VPINTFPV«L.  The  data  types  are 
analogous  to  those  of  standard  FORTRAN  and 
the  single  precision  interval  data  type,  hut 
can  be  of  arbitrary  precision. 

2)  The  standard  built-in  functions  (SIN/  COS/ 

SORT/  etc.)  for  use  with  the  new  data  types. 

3)  the  input/outout  facilities  of  standard  FORTRAN 

extended  for  use  with  the  extended  data 
types. 

A  users  guide/  which  would  detail  experiences  and  sunoestions  on 
when  and  how  to  use  variable  precision  arithmetic/  was  also 

produced. 

The  work  was  also  to  have  accomplished  the  production  of  a 
comprehensive  set  of  specifications  for  the  organization  of  an 
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arithmetic  unit  which  can  efficiently  suoport  variable  precision 
ar  i  thmet ie. 

As  outlined  in  the  gran t  proposal#  FORTRAN  wa«  to  have  been 
extended  using  the  preprocessor  AUGMENT.  Two  extended  Fortran 
languages  were  to  have  been  constructed: 

1)  Variable  Precision  FORTRAN  (VPFOR> 

?)  Variable  Precision  Interval  FORTRAN  (vptntfor) 

VP  F  OR  allows  the  use  of  V^  R  E  AL  #  VPINTFOFR  and  VPC0«IP|_PX.  V^INTFOR 
would  allow  the  use  of  VPTNTFRVAL.  Poth  languages  would  translate 
a  program  written  in  FORTRAN  with  the  above  Hat a  types  usino 
standard  FORTRAN  built-in  functions  and  the  standard  Fortran 
input/output  facilities  of  READ  and  WRITE  into  a  standard  r  o  p  T  R  A  N 
program  with  imbedded  subroutine  calls  which  would  execute  the 
appropriate  extended  precision  operations.  These  lanauaqes  were 
to  be  "constructed"  as  "virtual  compilers”  that  would  translate 
the  "virtual"  source  language#  VPFOR  for  example#  to  the 
"virtual"  object  code#  standard  FORTRAN. 

As  with  many  research  projects#  the  Finished  products  do  not 
quite  conform  to  the  specifications.  There  were  those  itews  which 
proved  to  involve  more  effort  to  implement  than  their  relative 
importance  justified#  as  well  as  those  items  whose  inclusion 
greatly  enhanced  the  overall  product.  The  input/output  extensions 
were  not  done  as  specified.  Rather  than  allnwino  the 
specifications  for  input/output  of  extended  data  types  to  be 
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contained  in  FORTRAN  format  statements/  the  inout/output  was  left 
as  explicit  calls  but  was  simplified  to  be  more  usable.  The 
RATFOR  preprocessor  C9T  was  attached  to  allow  "structured 
programming"  techniques  by  the  user.  Also  the  ease  of 
specification  of  the  precision  of  variables  of  the  extended  -'ata 
types  was  accommodated  to  a  hiqher  degree  than  was  envisioned  in 
the  proposal.  The  finished  product  also  allows  mixed  mode 
arithmetic  of  all  of  the  extended  data  types  and  their  standard 
FORTRAN  counterparts. 

There  were  also  changes  in  product  definition  dictated  by  the 
actual  implementation.  Since  the  base  representation  of  all  of 
the  extended  data  types  was  very  similar  and/  in  fact/  the  same 
operations  involving  two  different  data  tvpes  would  call  the  the 
same  subroutines  at  lower  levels/  only  one  foptpan  languane  was 
constructed.  This  lanquage/  SFPAFOR  (Structured  Fxtended 
Precision  Arithmetic  FORtran)/  includes  all  of  the  extended  data 
types.  The  next  section  details  the  history  o*  th« 
implementation  of  the  variable  precision  data  type. 


3.  Design  and  Implementation  of  SEPAFOP 


The  first  major  decision  to  be  made  in  the  design  phase  of  the 
variable  precision  interval  arithmetic  packaqe  was  how  should  the 
basic  operations  be  implemented.  There  was  already  a  multiple 
precision  real  package  in  use  on  Multics/  and/  in  fact/  had  been 


used  by  the  56  decimal  dioit  interval  package  in  implementing  the 
standard  built-in  FORTRAN  functions.  A  closer  study  of  the 
package/  developed  by  R.  p.  Brent  of  the  Australian  National 
University  FIOI/  indicated  that  the  package  was  appropriate  for 
use  in  the  implementation  of  SEPAFOR.  Its  assets 

included: 

1)  Portability  --  due  to  the  use  o*  integer 

arithmetic  and  standard  FORTRAN  the  nackaoe 
was  machine  independent  with  the  exception  oh 
two  conversion  sub rou t i ne s . 

2)  Reliability  --  the  package  had  been  thoroughly 

tested  and  had  been  in  use  for  quite  some 
time  on  several  different  machines. 

5)  Well  constructed  --  the  package  had  been 
constructed  with  contemporary  "structured 
programming"  techniques.  As  a  result  it  was 
highly  modular  with  fairly  good  internal 
documentation  which  lent  itself  well  to 
modi f ica  ti on. 

4)  Availability  --  it  was  already  resident  on  the 
Multics  system. 

Once  the  decision  was  made  to  base  th»  implementation  on  ^rent's 
multiple  precision  package/  the  next  problem  to  arise  was  in 
choosing  a  strategy  for  the  implementation  of  the  interval 
arithmetic  roundings  within  the  multiple  precision  package.  There 
were  two  primary  methods  to  be  considered. 
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The  first  of  these  involved  imbedding  the  roundinos  solely  in  the 


four  basic  operations  of  multiply#  divide#  add  and  subtract.  The 
implementations  of  the  built-in  functions  would  not  be  concerned 
with  rounding  strategies  but  would  let  this  r e spons i b i l i t y  lie 

« 

with  the  four  basic  ooerations.  The  primary  advantage  of  this 
approach  was  its  simplicity.  The  only  algorithms  which  would 

*- 

require  extensive  analysis  were  those  of  the  basic  arithmetic 
operations.  The  disadvantage  of  this  strategy#  which  precluded 
its  use#  was  that  is  was  Quite  inefficient  with  resnect  to  cou 
time  consumption. 


The  second  implementation  method  involved  imbedding  the  rounding 
strategy  in  all  implemented  functions  and  operations.  The  Drimary 
disadvantage  was  that  extensive  algorithm  analysis  had  to  be 
performed  on  all  implemented  functions  and  operations.  Tts 
advantage#  which  more  than  offset  its  disadvantage#  was  that  one 
could  take  advantage  of  the  algorithmic  structure  of  the  various 
operations  and  functions  to  produce  minimally  wide  interval 
results  in  the  most  efficient  manner  possible. 

« 

The  largest  portion  o*  imolementa t i on  time  was  taken  no  with  the 
analysis  and  modification  of  operations  and  functions  provided  by 
the  basic  multiple  precision  package  to  perform  interval 
arithmetic.  This  extensive  analysis  proved  valuable  in  t^at  an 
error  in  the  basic  multiple  precision  packaqe  was  uncovered.  The 
addition  routine  was  incorrectly  performing  addition  on  the  last 
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digit  of  the  operands.  One  modification  which  proved  to  save 
much  more  time  than  it  cost  was  that  the  subroutines  were  altered 


so  that/  if  one  desired*  its  orioinal  function  (i.e.  multiple 
precision  real)  could  be  invoked.  That  is*  the  desired  truncation 
strategy  is  passed  to  the  routine.  The  truncation  strateoies 
available  are:  upward  directed*  downward  directed  and  standard 
rounding.  This  greatly  eased  the  implementation  of  the  V^ML  and 
VPINTFGER  data  tyoes  as  wetl  as  reducing  the  overall  site  of  the 
package  by  sharing  code. 

Once  it  had  been  assured  that  the  basic  set  of  operations  and 
functions  performed  correctly  when  invoked  with  the  various 
rounding  strategies*  thouoht  was  qiven  to  the  implementation  of 
the  interval  arithmetic  aspects  of  the  operations  and  functions. 
The  addition  routine*  for  example*  could  perform  addition  with 
upward  directed*  downward  directed  or  standard  roundings  ^ut  did 
not  perform  interval  addition  per  se.  'in  approach  was  to  develop 
a  set  of  intermediate  subroutines  which  would  control  the 
interval  aspects  of  the  operation  or  function.  Each  operation  and 
function  was  to  have  a  corresponding  subroutine  which  would 
direct  the  roundinas  to  conform  to  interval  arithmetic. 

« 

After  completion  of  these  two  stages*  the  imheddino  of  roundinq 
strategies  and  the  creation  of  interval  operation  subroutines* 
the  package  was  equivalent  to  the  single  precision  real  interval 
package.  There  was  the  exception  that  interval  variables  could  be 
of  arbitrary  precision;  however*  all  interval  variables  had  to  he 
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of  the  same  precision 


With  the  completion  of  this  stage  of  the  project#  work  was  begun 
on  automating  the  translation  of  user  source  containing  the 
variable  precision  interval  data  type  to  standard  FORTRAN.  Not 
only  was  this  part  of  the  overall  plan#  but  it  would  also  oreatly 
facilitate  the  testing  of  the  programs.  The  first  stem  was  the 
creation  of  an  AUGMENT  description  deck  which  would  enable 
AUGMENT  to  perform  the  translation  automatically.  This  was 
followed  by  the  i mp 1  erne nt a t i on  of  a  skeletal  "virtual  compiler" 
to  aid  in  the  translation  by  automatically  attachino  the  A llG M F N T 
description  deck  to  the  extended  FORTRAN  source. 

The  installation  of  the  preprocessor  RATFOR  on  the  Multies  system 
was  done  at  this  time.  The  decision  was  made  to  insert  RATFOR 
into  the  package  because  it  allows  the  use  of  extended  control 
structures  (i.e.  DO  WHILE#  I F-THFN-ELSE#  R f op  a t -UNT T L #  etc.)  in 
FORTRAN  programming  The  addition  of  extended  control  structures 
Strongly  complements  the  extended  data  types.  The  use  of  the 
extended  control  structures  allows  the  user  to  produce  mor® 
readable#  more  reliable  and  better  documented  proorams  faster 
than  with  standard  FORTRAN.  This  is  a  strong  aroument  for  its 
inclusion. 

The  final  step  in  the  i mpl emen ta t i on  of  the  basic  variable 
precision  interval  arithmetic  oackage  was  to  find  a  means  of 
allowino  different  variables  to  have  different  precisions.  This 
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was  done  by  "tagging"  the  data  with  its  precision  and  by  creatinq 
a  third  level  of  subroutines  for  Drecision  control. 


The  third  level  of  subroutines  developed  for  precision  control 
performs  such  activities  as  resolvino  precision  conflicts  among 
operands  and  the  extraction  of  the  precision  for  use  by  the  lower 
levels.  It  should  be  noted  that  the  implementation  of  this  third 
level  of  subroutines  went  very  auickly  and  easilv.  The  basic 
Structure  of  each  subroutine  is  virtually  identical  for  all 
functions  and  operations. 

With  the  completion  of  this  final  staoe  of  the  implementation  o* 
the  basic  variable  precision  interval  oackaae#  work  was  heoun  on 
the  implementation  of  the  SEPAFOP  "virtual  compiler"  which  «nuH 
translate  the  user  proqram  with  its  extended  data  tvnes  and 
control  structures  to  standard  Fortran. 


a 


The  SEPAFOR  virtual  compiler  was  constructed  usinn  PlM  with 
calls  to  various  Multies  operating  system  modules.  The  function 
of  the  SEPAFOR  virtual  compiler  is  to  tal-e  the  user  orooram 
written  in  SEPAFOR  and  map  the  functionality  down  to  '"ultirs 
object  code.  This  is  done  by  first  passino  the  user's  scnurgp 
source  program  throuqh  the  PAT^OP  preprocessor  which  translates 
the  extended  control  structures  into  standard  foptp"N  still 
containing  the  extended  data  types.  SEPAFOP  dynamically  operates 
an  AUGMENT  description  deck  usinq  information  obtained  from  the 

.  SE°AFOP  takes  the  PATFOPed  source 


user's  SEPAFOR  source  program 


and  attaches  the  generated  A IJP  MF  NT  description  deck  oroHucina  an 
AUGMENT  source  deck.  The  AUG^NT  source  deck  is  then  passed 
through  AUGMENT  to  produce  a  standard  FORTRAN  source  ornoram. 
SEPAFOR  then  inserts  into  the  standard  rnpTMN  source  procram 
initializations  required  by  the  variable  precision  interval 
arithmetic  package.  The  final  act  of  SFnAFOR  is  to  invoke  t»*e 
FORTRAN  compiler  to  produce  f'ultics  object  code. 

At  this  stage  of  the  project*  we  had  a  useable  subroutine  package 
which  would  allow  the  user  to  write  proorarrs  containing  the 
extended  data  type  VPIMTFRVAL.  Each  variable  of  this  data  t yo e 
could  be  of  arbitrary  precision.  That  is*  the  variable  C^UNT 
could  be  of  precision  ?0  white  the  variabte  ftco  could  be  of 
precision  400.  The  entire  process  of  translation  of  the  user's 
SEPAFOR  source  proaram  to  Multics  object  code  was  automated  so 
that  no  interaction  was  reoui  red  from  the  user  dtirino  the 
translation  process.  For  some  period  of  time  after  the 
completion  of  this  staoe  of  the  proiect*  the  oackaoe  was 
extensively  tested  to  ensure  that  all  was  in  working  order  and  to 
minimize  any  problems  that  might  appear  at  a  later  date.  what 
remained  of  the  implementation  of  SFpafor  was  the  inclusion  of 
the  rest  of  the  extended  data  types  as  outlined  in  the  pronnsil. 


4.  Addition  of  Other  Variable  Precision  bata  Types 


It  was  decided  to  implement  VPREAl  first  as  it  was  the  simplest 
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of  the  extended  data  types  to  implement  and  would  provide  added 
experience  for  easing  the  implementation  of  the  remaining 
extended  data  types.  As  has  been  mentioned  before#  the  basic 
multiple  precision  package  was  an  implementation  of  multinl* 
precision  real.  The  complete  implementation  of  vpPFAi  recuired 
the  creation  of  a  set  of  intermediate  subroutines  for  precision 
control.  As  it  turned  out/  this  set  of  subroutines  is  virtually 
identical  to  the  precision  control  subroutines  o*  VPIMTEPW,|  .  The 
exceptions  beinq  that  the  VPlNTFPV*L  precision  control 
subroutines  call  the  interval  arithmetic  subroutines  while  the 
VPREAL  precision  control  subroutines  call  the  basic  multiple 
precision  routines  directly  and  indicate  the  standard  truncation 
rather  than  the  directed  roundings. 

When  it  was  realized  that  the  precision  control  subroutines  *nr 
VPRE  A  L  would  be  almost  identical  to  the  precision  control 
routines  for  VPINTFRV«L#  the  implementation  of  the  VP°EM. 
precision  control  subroutines  went  cuicklv.  The  i mo l emen t a t  i  on 
entailed  text  editing  on  the  precision  control  routines  of 
VPINTFRVAL  to  produce  the  VPREAL  precision  control  subroutines. 
The  changes  made  were  those  outlined  above. 

A  set  of  tests  was  again  run  on  the  VPINTFRVAL  portion  of  the 
package.  This  testing  consisted  of  producino  values  with  the 
VPINTFRVAL  data  type.  The  same  procedures  were  run  again  but  with 
the  VPRF*L  data  type  with  a  higher  precision.  A  comparison  was 
made  between  the  two  values.  Theoretically#  if  nothing  were 
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changed  between  the  two  runs  except  for  the  data  tyoe  exchange 
and  the  hiqher  precision*  then  the  VPPEAL  values  should  always  he 
contained  in  the  interval  produced  with  the  VPTNTFRV«L  data  tvne. 
Such  was  the  case  with  all  tests  run.  This  indicated  that  the 
modifications  made  to  the  basic  multiple  precision  packaae  in  the 
hopes  of  minimizing  the  widths  of  the  intervals  produced  appeared 
to  be  correct  and  proper. 

* 

With  the  completion  of  the  implementation  of  VPRFAL  and  its 
associated  process  of  testing*  attention  was  turned  to  the 
implementation  of  VPINTEGFr.  Since  the  basic  multiple  precision 
package  produced  only  real  values*  inteqer  arithmetic  had  to  he 
simulated.  To  correctly  simulate  intener  arithmetic*  integer 
overflow  had  to  be  detected  and  truncation  of  fractional  values 
had  to  be  done  properly. 

There  were  two  choices  for  the  placement  of  the  inteoer 
arithmetic  simulation.  The  first  of  these  was*  like  the  interval 
arithmetic  truncations*  in  the  body  of  the  basic  multiple 
precision  package.  This  would  have  entailed  analyzing  the 
routines  again  to  determine  which  modifications  were  needed  to 

? 

produce  only  integer  values  and  detection  of  inteoer  overflow.  It 
would  also  have  raised  the  complexity  of  the  modified  routines. 

» 

Considering  the  time  it  took  for  the  interval  arithmetic 
analysis*  this  was  an  unacceptable  approach.  The  second  aoorcach 
was  to  go  ahead  and  allow  full  computation  of  real  values  and 
perform  checks  on  the  results  returned  and  was  the  aonroach 
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taken 


The  precision  control  subroutines  were  then  to  be  almost 
identical  to  the  precision  control  subroutines  of  V  p  R  r  A  L  •  the 
exception  beinq  that  before  returni  mj  to  the  calling  subroutine  a 
call  would  be  made  to  a  subroutine  which  would  check  the  value 
for  integer  overflow  and  truncate  the  fractional  part.  This  would 

* 

ensure  that  a  prooer  integer  value  would  be  returned  and  that  no 
integer  overflow  had  occurred.  The  detection  of  integer  overflow 
was  simple  in  that  all  that  had  to  be  checked  was  the  exponent. 
If  the  exponent  was  larger  than  the  precision  this  indicated  that 
integer  overflow  had  occurred.  Truncation  was  a  matter  of 
zeroing  out  the  fractional  part. 

The  remaining  data  type  to  be  implemented  was  udcomPLcX.  This 

proved  somewhat  more  difficult  to  implement  than  VpPP*L  and 

VPINTEGER  in  that/  like  VPINTERVAL/  a  series  o*  intermediate 

subroutines  had  to  be  written  to  perform  complex  arithmetic.  The 

implementation  was  eased  by  the  fact  that  standard  truncation  was 

to  be  used  by  VPCOMPLFX.  The  implementation  o*  \/pC0MPIPX  did  not 

take  long  as  considerable  experience  had  been  gained  in  the 
a 

manipulation  of  the  base  representation.  Mso/  there  was  no  need 
to  consider  the  representati on  of  the  VPCOMPLPX  data  type;  th® 
representat i on  used  for  the  VPTNTFRVAi  data  type  was  ouite 
adequate.  The  operations  to  be  performed  on  the  real  and 
imaginary  parts  of  VPCOMplfx  were  similar  to  those  performed  on 
the  left  and  rioht  endpoints  of  VPINTERVAL.  Thus.  u«inq  the 


intermediate  subroutines  of  VPINTERVAL  as  a  model*  the  writing  o* 


the  intermediate  subroutines  for  VPCOMPLFy  was  completed  very 

quickly. 

Concurrent  with  the  implementation  of  each  data  type  was  the 

development  of  AUGMENT  description  decks  to  make  possible  the 

automated  translation  o*  the  data  types  into  standard  foptp'n. 

The  use  of  the  virtual  compiler  for  each  data  tyoe  consisted  o* 

simply  substituting  the  appropriate  AtJG^FMT  description  deck  into 

the  translation  process.  At  this  stage  of  development  we  had  four 

separate  data  types  that  could  be  used  only  in  solitary.  Tt  was 

desired  that  all  four  should  be  able  to  be  use^  simultaneously  in 

the  same  program.  To  accomplish  this  there  were  two  thims  that 

had  to  be  done.  A  comprehensive  A  u  f  M  F  N  T  description  deck  had  to 

be  developed.  This  AUGMENT  description  deck  not  only  had  to 

detail  the  particulars  of  each  data  type's  conversion  into 

Standard  FORTRAN*  hut  had  to  detail  how  interactions  amonn  the 

different  data  types  were  to  be  carried  out.  The  second  task  to 

be  accomplished  was  the  creation  of  a  set  of  conversion  routines 

for  handling  the  interactions  among  the  four  extended  data  types 

as  well  as  the  standard  FOPTPAN  data  types. 
j 

The  remaining  tasks  were  carried  out  in  short  ord^r.  The  creation 

r 

of  the  comprehensive  AIJG«fnT  description  deck  was  done  by 
combining  the  description  decks  that  had  already  been  written. 
All  that  needed  to  be  done  to  complete  the  comprehensive 
description  deck  was  the  addition  of  conversion  information  that 
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was  needed  for  handling  the  interactions  among  the  various  data 
types.  The  writino  o*  the  conversion  routines  was  made  simple  in 


that  each  data  type's  base  representation  was  the  same.  For 
example/  conversion  from  VPINTFGFR  to  VPRFAL  was  the  equivalent 
of  simple  assignment.  The  only  conversion  which  was  of  any 
trouble  was  the  conversion  from  VPINTFRVM.  to  the  other  data 
types?  this  entailed  the  writing  of  a  subroutine  for  the  taki^i 
of  the  midpoint  of  the  interval.  Once  these  two  tasks  were 
completed  the  package  was  ready  for  installation  at  wFS. 


5.  Installation  of  SFPAFOR  at  WES 

The  transporting  of  SFPAFOR  to  WFS  consisted  o*  two  parts.  First/ 
the  variable  precision  arithmetic  packaqe  had  to  be  delivered  and 
installed  on  the  G6T5  computer  at  WES.  The  delivery  was  made  by 
magnetic  tape.  Second#  the  SFPAFOR  virtual  compiler  had  to  be 
designed  and  written  for  compatibility  with  the  GAT<>  EFCPS 
operating  system. 

The  variable  precision  arithmetic  packaae  had  been  designed  with 
hiqh  portability  as  one  of  its  goals.  Much  care  was  taken  in  the 
writing  of  the  variable  orecision  arithmetic  oar.kaoe  to  ensure 
that  all  constructs  used  were  Dortable.  To  aid  in  this  endeavor# 
PFORT  was  obtained  from  Pell  Labs  C111.  pfort  checks  a  fortpan 
program  for  compliance  with  a  subset  of  ANSI  standard  fortran,  if 
a  program  is  PFORT  compatible  then  it  should  be  compatible  with 
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the  majority  of  FORTRAN  compilers  in  use  today.  This  proved  to  he 
the  case  with  the  G635*s  FORTRAN  compiler.  The  almost  13,000 
lines  of  code  compiled  on  the  0635  without  oen»rating  a  single 
di agnos t  i  c  ! 

Implementing  the  SFPAFOR  virtual  compiler  proved  to  be  much 
harder.  Before  transporting  the  svstem  to  wfs*  as  much  of  the 
Multics  SfPAFOR  virtual  compiler  as  was  possible  was  rewritten  in 
FORTRAN.  This  included  the  AUGMENT  description  deck  generator  and 
the  portion  of  SFPAFOP  whir1'  inserts  the  initializing 
information.  Upon  arrival  at  WFR,  the  workings  o*  scdator  were 
explained  and  work  was  begun  on  its  implementation.  This 
implementation  entailed  the  conversion  of  the  Pl/1-Multics 
portions  of  SFPAFOP  which  were  not  convertible  to  FORTRAN  into 
G633  JCL.  These  portions  included  process  control  and  file 
attachment  for  the  various  p  re  pro  c  e  s  so  r  s .  SF'MFop  was  installed 
on  the  G635  system  in  four  days  with  only  two  minor  problems 
occurring.  Since  the  oackaqe  is  integer  arithmetic  based, 
computations  involvino  the  extended  data  types  should  nroduce 
identical  results  on  all  computer  systems  on  which  they  are 
executed.  This  is  in  sharp  contrast  to  floating  point  based 
packages  which*  it  seems*  are  almost  ouaranteed  to  produce 
different  results  on  different  comouter  systems. 


:a  >  1  % 


Sfii£££Q£££ 

C1D  Ladner#  T.  0.  and  Vohe#  J.  M.#  "An  interval  arithmetic 
package  for  the  UNTVAC  110$, "  The  university  of 
Wisconsin#  Mathematics  Research  Tenter#  Technical 
Summary  Report  Mo.  105S#  May#  1970. 

C2D  Yohe#  J.  M  .  #  "nest  possible  floating  point  arithmetic#"  The 
University  of  Wisconsin#  Mathematics  Research  renter# 
Technical  Summary  Report  Mo.  1  0S4  #  MarcK#  10  70. 

C3D  Binstock#  W.#  Hawkes#  J.  and  Hsu#  n.#  "An  interval 
in put/ output  package  for  the  UNTVAC  11  OR#"  The 

University  of  Wisconsin#  Mathematics  Research  renter# 
Technical  Summary  Report  Mo.  121?#  September#  l07^. 

CAD  Crary#  F.  D.#  "The  AiiomfwT  Drecompiler#  J.  User 
information#"  The  University  of  Wisconsin#  Mathematics 
Research  Center#  Technical  Nummary  Reoort  No.  146°# 
December#  1074. 

C5D  Crary#  F.  h.#  "The  AUGMfmt  orecomoiler#  II.  Technical 
documentation#"  The  University  of  Wisconsin# 

Mathematics  Pesearch  Center#  Technical  Summary  Report 
No.  1470#  October#  1975. 

E6D  Reuter  Eric  < . #  Jeter  John  R.#  "nderson  J.  W.  and  Rhriver 
Bruce  0.  "Some  Experiments  Using  Interval  Arithmetic"# 
Computer  Science  Department  Report  Mo.  7R-7-1# 
University  of  Southwestern  Louisiana#  Lafavette# 
Louisiana#  October#  107#, 

r?D  Podlaska-Lando#  5.  and  Reuter  Fric  K.#  " T mol emen ta t i on  an d 

Evaluation  of  Interval  Arithmetic  Software#  Report  ?: 
The  Honeywell  mu t t i c s  System”#  Technical  Reoort  No. 
0-79-1#  Office#  Chief  of  Fnoineers#  U.  S.  Army# 
Washington  D.  C.  April  107Q. 

CRD  Reuter  Eric  K.#  Jeter  John  R.#  Anderson  J.  w.  and  Shriver 
Bruce  D.  "A  56  Decimal  Digit  T mnl ementat i on  of  an 
Interval  Arithmetic  Package  on  the  "uitics  Rvstem"# 
Computer  Science  Department  Report  No.  77-7-1, 
University  of  Southwestern  Louisiana#  Lafayette# 

Louisiana#  September#  1977. 

C9].  SolIW4££-IflOlar  Kernighan#  0.  and  nlauoer#  ». # 
Addi son-Wes l ey  Publishing  Company#  Reading# 

Massachusetts#  1976. 

C10D  Brent#  R.  P.#  "A  FORTRAN  multiple-precision  arithmetic 
package#"  Department  of  Computer  Science# 

C a rneg i e-we l l on  University#  Pittsburgh#  Pennsylvania# 
May#  1976. 


mis  i:j . 

*hum  uoi'x 


■  •I 


r\  :  *  •  r  ~ 


ij.iL  i  LQAJiLiE 
1M-0 


C123  Ryder#  8.  6.#  "The  °FORT  Verifier"#  SQilMflCfi  Etaclicc 
ElQfiCifiQfifir  Vol .  4#  1974. 


RE FERFNCES 


V1'’ 

V- '  Ur 


A  VARIABLE  PRECISION  INTERVAL  DATA  TV  PE 
EXTENSION  TO  FORTRAN 


A  Pro j  ect  Report 
Presented  to 

The  Faculty  and  Graduate  School 


of  the 


University  of  Southwestern  Louisiana 
In  Partial  Fulfillment 
of  the  Requirements  for  Degree 


Master  of  Science 


John  P.  Jeter 


July*  1979 


*  This  work  was  supported  in  part  by  the  U.  S.  Army  Corps 

of  Engineers  under  grants  DA AG29-78-G-0068  and  DRXO-MA-1 5169-M 


1  Introduction . ..............1 

2.  Gmnerat  Considerati  ons  on  the  Computer,  ,.i ..  ..  ..  ...3 

Implementation  of  Interval  Arithmetic 

2.1  Interval  Valued  Fun c t i ons  ..................... 5 

3.  Structured  Variable  precision  Interval  FORTRAN*. ... 8 

3.1  The  Variable  Precision  Interval  Data  Type.....9 

3.2  Supporting  Arithmetic  P  ac  It  age.  ..............  .1 2 

3.3  "Structured"  FORTRAN . 15 

3. A  Translation  to  FORT  RAN. .....................  .1 8 

4.  Results  and  Summary.... . . .1 9 

4.1  Results . .............19 

4.1.1  benchmark  runs  with  c ompari sons  ...... .21 

to  previous  arithmetics 
implemented  at  USL 

4. 1.1.1  e  constant  computa t ion  ..... ..22 

4. 1.1. 2  heat  transfer  program. ....... 30 

4.1.2  an  evaluation  of  the  mu 1 1 i l eve  l ...... .33 

interpretation  process 

4.2  Summary....... . . . ................45 

Appendix  A.  R AT F OR. .................................. .49 

Appendix  B.  AUGMENT  In t erf ac e ......................... 55 

Appendix  C.  The  Basic  MP  Package. . . 58 

Appendix  0.  Mathematical  Basis  for  In te rv at  .......... .65 

Arithmetics 

Appendix  E.  Description  of  MV  Routines  Aval l able.. ... .69 

Appendix  F.  Sample  Program  Source  and. ............... .78 

FORTRAN  Ou  tput 

Appendix  G.  User's  Guide  to  Structured  Vari able. ..... 103 

Precision  Interval  FORTRAN 

Appendix  H .  Value  of  the  Constant  e  to  1000  Digits. ..107 

Appendix  I.  User  Source  Versions  of  the  e ............ 1 08 

Computation  Algorithm 

Appendix  J.  User  Source  Versions  of  the  Hea t  ........ .1 1 4 

Computation  Algorithm 

Appendix  K.  Results  from  the  Heat  Computa ti on ....... .1 30 

A Igori thm 


Bgnsgg 1  ii  8  wiii 


1-  iDlUfidUtlifiO 


The  specific  objectives  of  this  project  are; 


1)  to  design  a  variable  precision  interval  data  type 

which  would  be  imbedded  in  FORTRAN  using  the 
AUGMENT  [4*53  preprocessor. 

2)  to  implement  R.  P.  Brent's  multiple  precision 

package  [103*  i nc orpo r a t i nq  modifications  to 
support  interval  arithmetic. 

3)  to  implement  the  RATFOR  preprocessor  [93  and  to 

design  an  AUGMENT  description  deck  [4*53 

incorporating  them  into  the  variable  precision 
interval  data  type  package.  This  would  allow  users 
to  write  FORTRAN  programs  containing  the  variable 
precision  interval  data  type  in  a  structured 
manner, 

4)  to  perform  an  evaluation  of  the  multilevel 

interpretation  process  that  was  used  to  implement 

structured  variable  precision  interval  FORTRAN. 


The  first  section  of  this  document  gives  an  introduction  to 
interval  arithmetic  that  is  helpful  in  understanding  the 
properties  of  variable  precision  interval  arithmetic.  Further 
details  concerning  interval  arithmetic  are  given  in  Appendix  0. 
The  second  section  describes  the  variable  precision  interval 
data  type*  its  supporting  arithmetic  package  and  the  translator 
which  translates  a  user's  "extended  FORTRAN"  program  into 
standard  FORTRAN.  Appendices  A  and  B  give  additional  details 
concerning  the  RATFOR  and  AUGMENT  preprocessors  which  are  used  to 
carry  out  portions  of  this  translation.  The  last  section  in  this 
report  contains  the  summary  of  the  project  and  the  results  of 
several  program  tests.  In  this  section  the  variable  precision 


interval  FORTRAN  version  of  each  test  program  is  compared  with 


other  versions  of  the  same  algorithm  using  previously 
implemented  arithmetics.  An  evaluation  of  the  multilevel 
interpretation  process  is  also  presented.  A  user's  guide  to 
structured  variable  precision  interval  FORTRAN  is  included  as  an 
aid  to  the  user  writing  structured  variable  precision  interval 
FORTRAN  programs. 
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The  finite  precision  arithmetic  used  on  computers  is  an 
approximation  to  the  real  number  system.  In  interval  arithmetic# 
real  numbers  are  approximated  by  intervals  which  contain  the 
number.  A  brief  introduction  to  interval  arithmetic  is  given  in 
Appendix  0.  Since  the  finite  precision  arithmetic  used  on 
computers  is  an  approximation  to  the  real  number  system#  there 
are  many  intervals  whose  endpoints  are  not  representable  with  a 
finite  precision  arithmetic.  In  this  case  the  endpoints  of  the 
interval  have  to  be  approximated  by  the  floating  point  system. 
This  computer  approximation  of  the  real-valued  intervals  is 
represented  as  a  pair  of  machine  representable  numbers  stored  in 
consecutive  storaqe  locations.  The  first  number  will  be  the 
lower  bound  of  the  machine  approximation  to  the  interval# 
referred  to  as  the  left  endpoint#  while  the  second  number  will  be 
the  upper  bound#  referred  to  as  the  right  endpoint. 

In  order  to  obtain  the  smallest  computer  representable  interval 
for  the  result  of  arithmetic  operations  on  finite  precision 
intervals#  directed  roundings  on  the  computer  arithmetic 
operations  must  be  defined.  Assume  x  is  a  real  number  and  HI  and 
M2  are  two  machine  representable  numbers  such  that  Ml  £  x  £  M2 
and  Ml  and  M2  are  either  equal  or  consecutive.  Oefine  Rd  to  be 
the  downward  directed  rounding  such  that  Rd(x)  *  Ml.  Define  Ru 
to  be  the  upward  directed  such  that  Ru(x)  *  M2.  Ml  and  M2  will 


be  the  machine  representable  numbers  that  are  r espect ive  ly  the 
greatest  lower  bound  and  the  teast  upper  bound  for  the  real 
number  x.  If  x  is  a  machine  representable  number#  then  Ru(x)  * 
Rd(x)  =  x. 

Algorithms  for  performing  the  machine  arithmetic  operations  with 
directed  roundings  can  be  found  in  Yohe  [23.  In  general  a  op  b# 
where  a  and  b  are  machine  representable  numbers  and  op  is  one  of 
the  machine  arithmetic  operations#  is  not  a  machine  representable 
number  and  must  be  rounded  into  a  machine  representable  number. 
Directed  roundings  are  used  to  compute  the  endpoints  of  the 
resultant  interval  for  a  particular  arithmetic  operation 
performed  on  two  intervals.  A  downward  directed  rounding  is 
performed  to  provide  left  endpoint  and  an  upward  directed 
rounding  is  performed  to  provide  the  right  endpoint. 

For  example  finite  precision  interval  addition  is  defined  as# 

Ca#b3  ♦  Cc#d3  *  Ea+c#b+d3 

where  a#  b#  c#  and  d  are  machine  representable  numbers.  The 
computer  approximation  to  the  resultant  interval  is  defined  as 
f ol lows: 

Ca#b3  «  Cc#d3  =  CRd(a«c)#Ru(b«d) 3 

where  •  is  the  machine  addition  operation. 

Since  the  range  of  machine  representable  numbers  is  bounded# 
situations  might  occur  during  finite  precision  operations  in 
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which  these  bounds  are  exceeded.  If  the  finite  precision  number 
becomes  too  small/  underflow  has  occurred.  If  the  finite 
precision  number  becomes  too  large/  overflow  has  occurred.  If 
underflow  occurs/  then  the  true  result  is  between  zero  and  the 
smallest  positive  or  negative  representable  number.  In  this  case 
a  directed  rounding  can  give  a  valid  bound.  In  the  case  of 
overflow/  if  rounding  away  from  zero  is  wanted/  then  there  is  no 
machine  representable  number  which  can  be  used  as  a  correct 
bound.  This  type  of  error  condition/  or  fault/  is  known  as  an 
infinity  fault. 

2.1  lateral.  Valued.  Euattiaos 

A  real-valued  function/  f/  which  is  defined  and  continuous  on  an 
interval  Ca#b3  can  be  extended  to  an  interval-valued  function#  F# 
of  an  interval  variable  by  defining 

FlCa/bD)  =  If  ( x )  :  x  €  Ca#bD>. 

When  f  is  evaluated  on  a  digital  computer  using  machine 
representable  approx i mat i ons  to  the  real  numbers#  a  computer 
approximation#  f'#  to  f  results.  If  F(Ca#b])  is  an  interval 
valued  function  of  an  interval  vwhere  a  and  b  are  machine 
representable  numbers)#  then  the  computer  approx i m at i on# 
F'(Ca#bD)  is  defined  as  an  interval  that  contains  F(Ca#bD). 

Assume  f*  is  the  computer  approximation  of  a  real  valued  function 
f  and  f  is  monotonic  increasing  on  Ca#b3.  Then 
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where  Rd  is  a  downward  directed  rounding  into  a  machine 
representable  number  such  that  Rd(f'(a>)  <  f<a>  and  Ru  is  an 
upward  directed  rounding  into  a  machine  representable  number  such 
that  Ru(f'(b>>  >  f<b).  Ideally  we  would  like  Rd(f'(a>)  to  be  the 
largest  machine  representable  number  such  that  Rdff'la))  <  f(a) 
(i.e.*  a  greatest  lower  bound)  and  Ru(f'(b))  to  be  the  smallest 
machine  representable  number  such  that  Ru(f'(b))  >  f(b)  (i.e.  a 
least  upper  bound). 

If  f  is  monotonic  decreasing  on  Ca*b3*  then 

F*(Ca*b3)  =  CRd(f ' (b))*Ru(f •  (a>>3 

If  f  is  not  monotonic  on  Ca*b3*  then  the  interval  Ca*b3  can  be 
divided  into  disjoint  suD i nt er v al s )  X'(i>*  i  *  1*2*3 *...*n)  where 
the  endpoints  of  each  X'(i)  are  machine  representable  numbers  and 
U  X ( i )  contains  alt  the  machine  representable  numbers  in  the 
interval  Ca*b3  and  f  is  monotonic  on  each  X'(i).  In  this  case 
F'(Ca*b3)  *  U  F  <X'(i))«  It  should  be  noted  that*  in  practice* 
this  partitioning  is  performed  only  for  the  functions  supplied  by 
the  support  structure.  If*  for  example*  the  user  wished  to 
evaluate  the  polynomial  x**2  -  x  over  the  interval  C.5te3  where 
is  e  is  very  small  then  the  correct  bounds  may  not  be  formed. 
However*  the  polynomial  is  broken  down  into  subexpressions 
before  evaluation)  each  of  these  subexpressions  is  evaluated 
with  correct  bounding  since  each  is  monotonic  over  the  interval. 


It  may  not  be  possible*  due  to  algorithmic  inadequacies  or  to 
accumulated  roundings*  to  obtain  the  best  bounds  for  the  result 
of  the  computer  approximation  to  the  function  f.  The  problem 
will  be  illustrated  in  the  next  section  when  describing  the 
interval  counterparts  of  the  Multics  basic  external  functions. 


3 .  st£uiiu£fidi_¥ar  iabit_er££isiflO£>iQtc£^«i_£QBlSA!!i 


The  variable  precision*  interval  data  type  is  patterned  after 
the  single  precision  interval  data  type  previously  implemented  at 
University  of  Southwestern  Louisiana  C83  and  at  the  Mathematics 
Research  Center  of  the  University  of  Wisconsin  C2*113.  The 
computer  representation  of  the  single  precision  interval  data 
type  consists  of  a  two  element  single  precision  floating  point 
FORTRAN  array.  The  first  element  in  the  array  is  the  left 
endpoint  while  the  second  element  is  the  right  endpoint.  The 
interval  operations  provided  include  the  basic  FORTRAN  operations 
and  supplied  functions.  These  operations  are  supported  at  their 
lowest  level  by  machine  dependent  procedures  which  perform  the 
reauired  directed  roundings. 

The  variable  precision*  interval  data  type's  implementation  is 
based  upon  R.  P.  Brent's  Multiple  Precision  Package  which  has 
been  modified  to  perform  the  necessary  roundings  for  interval 
arithmetic.  The  implemented  supporting  package  is  highly 
portable.  All  modules  have  been  successfully  passed  through  the 
PFORT  FORTRAN  ver i f i e r C 1 2 3 .  PFORT  is  a  subset  of  ANSI  FORTRAN 
which  should  be  compatible  with  the  great  majority  of  FORTRAN 
compilers.  A  good  part  of  the  process  of  translation  from 
variable  precision*  interval  FORTRAN  to  standard  FORTRAN  was 


automated  to  make  the  task  simpler  for  the  user.  The  following 
subsections  describe  in  further  detail  the  variable  precision* 


Interval  data  type  and  the  underlying  supporting  package  as 
well  as  the  translation  process. 


3.  i  ifi£_u*j:i*bl£.££e£iaisfl-.lQm*Ai-£A£i.l*A£ 


The  variable  precision*  interval  data  type  is  operationally  the 
same  as  the  single  precision  interval  data  type  implemented 
earlier  C8!J.  The  difference  lies  in  their  basic  machine 
representat i on.  While  the  single  precision  interval  data  type  is 
represented  as  two  single  precision  real  numbers*  Figure  1*  the 
variable  precision*  interval  is  represented  as  two  single  row 
integer  arrays*  or  vectors*  Figure  2.  The  variable  precision* 
interval  data  type  does*  however*  allow  the  user  to  specify  the 
precision  of  each  finite  precision  interval  variable. 


f  floating  point  I  floating  Doint  1 
I  single  precision  I  single  precision  I 
I _ I _ I 

FIGURE  1 

Single  precision  interval  data  type  representat  ion 


I  I  I  I  I  I  f  t  (III 

Isdddtl  expon  1  T1  I  T2  I...I  TN  I  s  I  expon  I  T1  I...I  TN  I 
» _ I _ I _ I _ t _ I _ I _ I _ 1 _ _  I _ 1 _ I 

FIGURE  2 

Multiple  precision  interval  data  type  represents t i on 
(sdddt  *  sign<0*-1  or  +1)  concatenated  with 
the  precision  concatenated  with  a  temporary 
variable  indicator  (1  for  temporary*  0  for 
non-temporary)  expon  *  exponent  (to  base  b) 

T 1  ■  digit  (in  base  h)  s  *  sign  (0*  -1  or 

♦  1>> 


As  »n  example  of  th?  use  of  the  variabte  precision#  intervat  data 
type#  suppose  that  a  program  written  with  variabte  precision# 
interval  variables  produces  satisfactory  results  during  most  of 
the  computation  with  a  precision  T1 .  Let  us  assume  it  executes  a 
section  of  computation  which  has  a  data  sensitivity?  that  is#  for 
certain  input  data  the  algorithm  produces  results  which  are 
incorrect  or#  using  intervat  arithmetic#  the  results  have 
undesirably  large  interval  widths.  Using  the  variable  precision# 
interval  data  type  the  user  is  able  to  specify  that  the 
computationally  demanding  section  of  code  be  performed  with  a 
precision  T2  (T?>T1)  which  would  be  sufficiently  high  to  produce 
satisfactory  resutts.  Conversely#  for  a  less  demanding 
computation  the  user  may  specify  a  lower  precision.  Thus#  the 
variable  precision#  interval  data  type  allows  the  user  to  tailor 
the  precision  of  the  interval  variables  (and  subsequently  the 
computational  overhead)  to  the  computational  needs  of  the 
algor i t  ha. 

Structured#  variable  precision#  Interval  FORTRAN  has  been 
designed  so  as  to  allow  the  user  great  freedom  in  the  mixing  of 
data  types.  Computations  involving  integer#  real  and  variable 
precision#  interval  variables  are  allowed.  The  precision  of 
interval  operands  are  determined  at  runtime.  The  operations  are 
performed  with  the  same  precision  as  the  operand  with  the  highest 
precision.  The  result  is  then  converted  to  the  precision  of  the 
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variable  that  Is  to  contain  the  result#  called  the  target.  In 
cases  where  the  target  is  an  intermediate  result  of  a  computation 
the  precision  of  the  result  is  retained.  Intermediate  results 
retain  the  highest  precision  encountered  during  each  computation. 
Further  computations  with  an  intermediate  result  are  treated  as 
above#  using  the  highest  precision  required  of  the  operands. 

As  a  clarifying  example  consider  the  computation 

y  s  x*Z  ♦  A*Y  ♦  B  ♦  C 

where  X#  Z#  A#  Y  and  B  are  variable  precision#  interval  variables 
with  precisions  25#  50#  75#  15  and  50  respectively  and  C  is  a 
real  variable.  The  computation  is  performed  as  shown  in  Figure 
3. 


1 

operation 

1 

precision 

1 

target 

1 

1 

1 

X  *  Z 

1 

f 

50 

I 

1 

tempi 

(  wi  th 

prec ision 

....  1 
I 

50)  1 

1 

A  *  Y 

I 

75 

! 

temp? 

(with 

precision 

75)  1 

1 

tempi  * 

temp2 

1 

75 

1 

tempi 

(with 

prec ision 

75)  1 

1 

tempi  ♦ 

B 

) 

T5 

I 

tempi 

(with 

prec 1  si  on 

75)  I 

1 

convert 

C  to  interval 

I 

10 

» 

temp? 

(with 

prec ision 

10)  1 

1 

tempi  ♦ 

t  emp2 

1 

75 

1 

y  (with  precision  15) 

1 

FIGURE  3 

Execution  record  of  the  FORTRAN  statement  Y  * 
X*Z  ♦  A* Y  ♦  B  ♦  C  displaying  precision  of  the 
operation  and  the  precision  to  whieh  the 
result  is  converted 


For  a  different  perspective  of  the  example  let  Y  be  a  real 
variable  and  B  an  integer.  Then  the  execution  record  would  then 
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be  that  of  Figure  4 


operation 


X  *  2 

convert  B  to  interval 
A  *  temp? 
tempi  *  temp2 
tempi  ♦  B 

convert  C  to  interval 
tempi  +  temp? 
convert  tempi  to  real 


r  precision  I  target 


I  I 

l  SO  I  tempi 

I  20  t  temp? 

1  75  I  temp? 

I  75  I  tempi 

1  75  I  tempi 

I  10  I  temp 2 

1  75  I  tempi 

1  75  I  y  (in 


1 

.... - - - 1 

I 

(with  precision  50)1 
(with  precision  20)1 
(with  precision  75)1 
(with  precision  75)1 
(with  precision  75)1 
(with  precision  10)1 
(with  precision  75)1 
single  precision)  I 


FIGURE  4 

Execution  record  of  the  FORTRAN  statement  Y  = 
x*Z  ♦  A* Y  ♦  B  ♦  C  with  Y  changed  to  a  real 
variable  and  B  changed  to  an  integer 
displaying  precision  of  the  operation  and  the 
precision  to  which  the  result  is  converted 


3. 2  SuQBii£lio9.£riibacii£.£i£ki9£ 


Operations  involving  the  variable  precision#  interval  data  type 
are  implemented  via  a  series  of  calls  to  a  supporting  multilevel 
interpretive  structure.  This  multilevel  interpretive  structure 
controls  the  precision  under  which  the  Interval  operations  are 
carried  out#  performs  the  necessary  conversions#  executes  the 
desired  operations  with  the  required  roundings  and  takes  care  of 
the  housekeeping  involved  with  the  variable  precision#  interval 
data  type.  The  supporting  structure  is  composed  of  three  separate 
tevels.  The  first  level  of  the  multilevel  interpretive  structure 
performs  the  precision  adjustments  that  need  to  be  made  before 
the  actual  operations  are  performed.  The  second  level  controls 
the  details  of  the  Interval  operation#  for  example#  which 


endpoints  to  use  in  determining  the  result  end  the  rounding 
strategy  to  he  employed.  The  third  level  carries  out  the  actual 
operation  with  the  prooer  roundings.  The  package  can  be 
represented  graphically  as  shown  in  figure  5. 


t  user  program  I 
I  level  I 

I _ t 

f 

I 

_ V _  _  _ 


I  1st  level  --  precision  I 
1  of  operations  determined  I 
I  (precision  control  level)! 

I _ I 

I 

t 

_ V _ 

I  2nd  level  --  controls 
t  the  specifics  of  the 
I  interval  operation 
I  (interval  operation  level) 

_  _ 

I 

I 

_ V _ _ _ _ _ _ 

I  3rd  level  —  performs  the 
I  vector  manipulations  on 
I  the  endpoints  of  the 
I  i nte  rva  l  s 

I  (vector  manipulation  level) 


I _ _ 

I 

I 

_ V _ _ _ _ _ 

I  ~  I 

I  machine  operations  I 

f _ I 


FIGURE  5 

Graphic  depiction  of  the  various  levels  of 
the  multilevel  Interpretive  support  structure 


A  demonstration  of  how  the  levels 


interact  and  the 


responsibilities  of  each  level  can  be  made  by  following  the 
computation  C  *  A  ♦  B  down  through  the  different  levels#  where 
all  variables  are  of  type  variable  precision  interval.  The 
actions  taken  at  each  level  are  as  follows: 


1)  User  program  level  --  the  assignment  statement  is 

translated  into  a  call  to  the  subroutine  MVABO 

CALL  MVADft  <A#  B#  C) 

2)  Precision  control  level  —  MV  A  D  l>  inspects  the 

operands  A  and  B  determining  which  has  the  larqer 
precision.  The  smaller  precision  argument  is 
converted  to  the  larger  precision  by  copying  its 
value  into  a  temporary  workspace#  named  MVTE*P, 
kept  explicitly  for  that  purpose.  The  precision 
for  which  the  computation  will  be  performed#  kept 
in  an  external  location#  is  then  set  to  the 
precision  of  the  larger  precision  operand.  A  call 
to  the  interval  operation  levet  is  then  performed 
by  executing  either 

CALL  MXAOD  <MVT  BMP#  MVB#  MVTEMP)  or 
CALL  MXAftft  <MVA#  MVTfMP,  MVTEMP) 

The  target  is  then  inspected.  If  the  target  is 
itself  a  temporary#  an  intermediate  result#  the 
result  of  the  operation  is  retained.  If  it  is  not# 
adjustments  are  made  on  the  precision  of  the 
result  and  the  value  assigned  to  the  target. 

3)  Interval  operations  level  —  MXAOR  makes  two  calls 

to  the  vector  operation  level  to  perform  the 
operation  of  interval  addition 

CALL  MPAftO  (MXA(right)#  MXBCright)# 

MXC(right)#  upward  directed  rounding 
indicator) 

CALL  MPA  Oft  (MXA(left)#  MXBCleft)#  MXCCleft)# 
downward  directed  rounding  indicator) 

A)  Vector  manipulation  level  --  MPAftft  performs  the 
manipulation  of  addition  which  is#  at  this  low 
level#  an  addition  of  two  integer  arrays.  This 
addition  is  performed  by  calls  to  various  other 
supportive  routines  at  this  level  which  carry  out 
the  actual  machine  operations  of  addition  on  the 
integer  array  which  represents  the  endpoint  of  the 
variable  precision#  interval  argument  specified 


U 


3.3  "St£U£tU£Cd”_ EQBIBfltl 


The  variable  precision*  interval  data  type  has  been  imbedded  in 
"struc  tured"  FORTRAN.  This  was  accomplished  through  the 
incorporat i on  of  RATFOR  TP]*  a  preprocessor  for  FORTRAN  written 
in  FORTRAN*  into  the  supporting  structure.  The  end  result  was 
the  production  of  structured*  variable  precision*  interval 
FORTRAN. 

"Structured"  FORTRAN  allows  the  use  of  contemporary  control 
Structures  such  as  DO-WHILE*  I F-THEN-ELSE  and  REPE AT-UNTI L  C9T. 
The  primary  purpose  is  to  make  FORTRAN  a  better  programming 
language  by  permitting  and  encouraging  the  writing  of  readable 
and  wel l-structured  programs.  This  is  done  by  providing  the 
control  structures  that  are  unavailable  in  FORTRAN*  and  by 
improving  the  "cosmetics"  of  the  language*  similar  to  that  done 
in  FORTRAN  *77. 

The  cosmetic  aspects  of  RATFOR  have  been  designed  to  make  it 
concise  and  reasonably  pleasing  to  the  eye.  It  is  free-formJ 
Statements  may  appear  anywhere  on  an  input  line.  Other  additions 
also  improve  the  readability  of  the  language;  for  example*  the 
use  of  the  symbol  ">"  conveys  the  meaning  of  code  more  rapidly 
than  the  equivalent  string  of  symbols  ".GT.". 


To  show  the  advantages  of  RATFOR  consider  the  construct 
IF  (condition)  THEN  ($1)  ELSE  <s2>. 

This  construct  is/  for  the  most  part/  fairly  easy  to  understand. 
IF  the  "condition"  is  true  THEN  statement  "si”  is  to  be  executed/ 
ELSE  statement  **s2"  is  to  be  executed.  However/  this  construct  is 
rather  awkward  to  express  in  FORTRAN. 

As  an  example/  suppose  that  if  the  value  of  the  variable  X  were 
greater  than  or  equal  to  10.7/  then  X  is  to  be  divided  by  18.5 
and  the  counter  KOUNT  incremented  by  one.  However/  if  the 
condition  were  false  then  the  variable  X  is  to  be  multiplied  by 
18.3  and  the  counter  KOUNT  decremented  by  one.  One  way  of 
expressing  this  in  FORTRAN  as  shown  in  Figure  6. 

T  if”  xTge7ToT7)~go~to””7 

I  X  =  X  *  18.3  I 

I  KOUNT  =  KOUNT  -  1  1 

I  GO  TO  20  I 

I  10  X  =  X  /  18.3  » 

I  KOUNT  *  KOUNT  +  1  I 

I  20  CONTINUE  ! 

FIGURE  6 

Example  of  FORTRAN  code 

On  the  other  hand/  the  same  logic  could  be  expressed  in  RATFOR  as 
shown  in  Figure  7. 


IF  (X  >«  10.7) 

C 

X  *  X  /  18.3 
K OUNT  *  KOUNT  ♦  1 

1 

ELSE 

C 

X  «  X  *  18.3 
X OUNT  =  KOUNT  -  11 


FIGURE  7 

PATFOR  version  of  FORTRAN  code  in  Figure  6 


With  these  additional  contemporary  proqramming  language 
constructs  the  programmer  is  able  to  produce  a  readable, 
structured  program  and  have  it  translated  automatically  into 
standard  FORTRAN.  It  is  herein  that  RATFOR's  greatest  value 
lies.  A  highly  readable,  structured  program  is  a  program  that  is 
easier  to  develop,  debug  and  modify.  The  time  it  takes  a 
programmer  assigned  to  modify  an  existent  program  to  get  the  job 
done  is  directly  proportional  to  the  unde r s t andab i l i t y  of  the 
code.  By  the  automatic  translation  of  these  constructs  into 
FORTRAN,  the  programmer  is  able  to  devote  a  larger  portion  of 
time  to  the  development  of  ideas  rather  than  their  translation 
uhile  being  assured  that  this  translation  will  be  done  correctly 


each  and  every  time 


3. 4  icaosljiiflo-el-StiMct  ured-lfjriaiie.EiefiisioQ-lotecitai 
EQ  BIS  AH.  IS.  EQSI&&GI 


A  "virtual"  compiler  was  developed  to  compile  the  structured 
variable  precision*  interval  FORTRAN  source  to  the  "object  code" 
of  the  FORTRAN  virtual  machine.  The  virtual  compiler  allows  the 
user  to  write  "structured"  FORTRAN  programs  which  contain 
interval  variables.  The  virtual  compiler  automatically  performs 
the  simple  but  laborious  task  of  tending  to  the  technical  details 
of  the  translation.  The  virtual  compiler  program  first  passes 
the  app l i cat  ion* s  source  program  through  the  preprocessor  RATFOR 
producing  an  intermediate  form  of  the  program.  This  intermediate 
program  is  then  passed  to  AUGMENT  after  an  AUGMENT  description 
deck  has  been  automatically  attached.  A  FORTRAN  version  of  the 
program  is  then  produced  by  AUGMENT.  This  process  is  graphically 
depicted  in  Fiqure  8.  A  more  detailed  description  of  RATFOR  and 
the  AUGMENT  description  deck  can  be  found  in  the  appendices. 


1  Structured  Variable  I 
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FIGURE  8 


Depiction  of  translation  process 


4.  Se5Ul*2.«0d_SU0J»*£X 


4.1  BfiSUilS 

The  test  programs  used  as  a  basis  for  the  results  consist  of  a 
heat  transfer  program  and  a  program  which  computes  the  constant 

t 

e.  The  latter  was  chose  for  its  simplicity.  It  consists  of  a 
simple  iterative  loop  with  only  the  basic  operations  of  addition# 
•  multiplication  and  division.  One  other  reason  for  its  inclusion 

is  that  the  constant  e  is  known  to  many  decimal  places  and 
therefore  some  measure  of  the  capabilities  of  the  various 
arithmetics  can  be  made.  This  algorithm  also  provides  an  example 
of  the  effects  that  extending  loop  termination  factors  can  have 
on  resource  usage  when  extended  precision  is  used.  The  alqorithm 
used  to  compute  the  constant  e  is  given  is  Figure  9. 


/*  initializations  */ 
sum  *  0;  nfact  *  1? 
steo  *  1#  i  *  0? 
error.factor  =  CONSTANT 

/  *  ma i  n'  l  ooo  *  / 
repeat 

sum  *  sum  +  step 
1  *  1  ♦  i; 
nfact  *  nfact  *  i  ? 
step  »  1/nfact 

until  (step  <*  error. factor) ; 

/*  output  result  */ 
put  (sum); 


FIGURE  9 

Algorithm  to  compute  the  constant  e 
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/*  initializations  */ 
k  «  30;  i  *  10;  c  «  .12;  to  *  70; 

tl  =  500;  ro  =  7.1  *  62.3; 
pi  *  3.1415927; 
get  (theta); 

/*  loop  once  for  each  foot  */ 
do  feet  *  1  to  i; 

/*  i ni t ia l i zat i ons  for  sub-loop  */ 
t  *  (k  *  theta)/(l**2  *  ro  *  c>; 
x  *  feet/i;  /*  increment  foot  */ 
sum  *  0;  count  =  0;  time  *  0; 

/*  loop  to  determine  temperature  */ 
repeat 

count  *  count  ♦  i; 
x sum  «  ( (-1 )** count /c ount)  * 

exp( (-count ) **2  *  pi**?  *  t  * 
si n(count*pi*x) ; 

*  sum  »  sum  ♦  xsum; 
if  (abs(xsum)  <  error 
then  time  *  time  ♦  i; 
else  time  «  0; 
until  (time  =  2)  ! 

/*  compute  and  output  result  */ 
t  *  tO  ♦  (tl-tO)  *  (x  ♦  (2/pi)*sum); 
put  ( t ) ; 
end  ; 


FIGURE  10 

Algorithm  to  compute  the  temperature  of  a 
pipe  of  lenqth  l  at  1  foot  intervals/  where 
the  ambient  temoerature  is  tO  degrees  and  the 
heat  source  is  tl  degrees 


The  heat  transfer  program/  an  applications  source  program  in  use 
by  the  Mechanical  Engineering  Department  of  the  University  of 
Southwestern  Louisiana/  was  chosen  to  present  an  algorithm  which 
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possessed  somewhat  more  sophistication.  It  is  composed  of  a  more 
complex  looping  structure.  It  also  contains  more  complex 
operations#  sine#  exponential#  conversion#  etc.  The  wide  range  of 
operations  will  serve  to  provide  a  basis  for  a  comparison  of  the 
arithmetics  on  a  cost  per  digit  basis.  The  algorithm  which  is 
used  in  the  heat  transfer  program  is  presented  in  Figure  in. 

4.1.1  6£o£baa£fcs.wltb.£oBQa£asaQS-ifi-£££xifius.£iilb0£li£2- 

I»Qi£i£QlCd-£t-llSL 

The  following  results  were  produced  on  the  Honeywell  Multics 
system  based  on  a  Honeywell  68/80  two  processor  configuration. 
Two  metrics  are  given  for  the  results  produced#  cpu  time  and 
paging.  It  should  be  noted  that  the  cpu  time  given  is  the  virtual 
cpu  time  for  the  run.  There  has  been  observed  some  slightly 
irregular  behavior  in  the  system  routine  which  supplies  the 
virtual  cou  time;  therefore#  these  figures  are  not  presented  as 
the  actual  amount  of  cpu  time  consumed.  It  is  felt  that  these 
figures  are  reliable  enough  for  performing  valid  comparisons. 
The  paging  results  presented  are  more  a  function  of  system  load 
rather  than  amount  of  main  memory  usage.  There  is#  however#  some 
small  but  noticeable  cost  incurred  during  a  page  fault.  Thus#  a 
run  with  a  great  number  of  page  faults  will  consume  a  greater 
amount  of  virtuat  cpu  time  than  the  same  run  with  few  page 
faults.  This  metric  has  major  interest  only  to  those  intimately 
familiar  with  Multics. 
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Figure  11  presents  the  value  of  e  to  ?5  decimal  digits  of 
precision.  This  value  was  acquired  from  a  handbook  of 
mathematical  tables  C7T.  It  should  provide  a  basis  for  the 
comparison  of  the  following  results.  Appendix  H  also  contains  a 
value  for  e  which  was  obtained  by  executing  a  multiple  precision 
version  of  the  e  computation  algorithm  with  a  precision  of  1500 
digits  and  rounding  the  result  to  1000  digits.  This  value  should 
be  accurate  to  all  1000  digits.  Source  versions  of  the  e  program 
can  be  found  in  appendix  I. 


»  1 

I  2.71 8281828459045235360287  I 

I _ l 


FIGURE  11 

Value  of  e  to  25  digits 

The  following  two  results  were  obtained  from  single  precision  and 
double  precision  FORTRAN  versions  of  the  program  to  compute  the 
constant  e.  The  single  precision  version#  with  an  error  factor  of 
1.0e-8#  has  a  result  which  is  accurate  to  7  digits.  The  double 
precision  version#  with  an  error  factor  of  1.0e-15#  has  a  result 
which  is  accurate  to  19  digits.  The  double  precision  version 
produced  results  which  were  accurate  to  more  than  twice  as  many 
digits  as  the  single  precision  version. 


-22- 


1 
I 
I 
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FIGURE  12 

Results  of  single  precision  e  computation 
<  ERROR  *  1 ,0e-8  > 


1 

e  IS  EQUAL  TO 

2.718281828459045735 

1 

COMPUTED  IN 

18  STEPS  ACCURACY  *  19  DIGITS 

1 " 

CPU  time  a 

0. 024731  seconds?  Page  faults  * 

0  1 

FIGURE  13 

Results  of  double  precision  e  computation 
(  ERROR  «  1 . 0e-1 5  ) 

The  results  presented  in  Figure  14  are  those  from  the  sinqle 

precision  interval  version  of  the  program.  It  has  an  error  factor 

of  1.0e-8  with  an  accuracy  of  7  digits.  The  interval  width  is 

quite  small  indicating  that  the  algorithm  is  stable  with  respect 

to  truncation  error.  Note  that  the  single  precision  reale  double 

precision  real  and  the  actual  value  are  contained  within  the 

Intervale  which  is  ouite  desirable.  The  results  dide  howevere 

consume  more  than  an  order  of  magnitude  greater  amount  of  cpu 

time  than  did  the  single  precision  real  version.  The  price  paid 

bought  the  greater  trust  in  the  results  produced. 

T”“e~II’i0U4L~T0*F* 277 1828172 J”277?825T98’5 
I  COMPUTED  IN  10  STEPS  ACCURACY  *  7  DIGITS 

I  CPU  tTme  «  5.473424  seconds?  Page  faults  *  3 

I _ 

FIGURE  14 

Results  from  single  precision  interval  e  computation 

(  ERROR  *  1 ,0e-8  ) 


e  IS  EOUAL  TO  2.71828178 

COMPUTED  IN  10  STEPS  ACCURACY  *  7  DIGITS 
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The  results  presented  in  Figure  15  were  produced  from  the 
56-decimal  digit  interval  version  of  the  program  with  an  error 
factor  of  1.0e-5©.  The  result  is  accurate  to  ??  digits.  The 
execution  incurred  a  cpu  cost  more  than  two  orders  of  magnitude 
greater  than  that  of  the  double  precision  real  version  and  an 
order  of  magnitude  greater  than  the  single  precision  interval 
version. 

7~e~7s~EQUAL~TO  7 

I  C  2. 7 18281 82 84 5 00 452 353 60 287471 3  5266249775  724709369995884#  I 
I  2. 7182818284 5 004523 53 60 28747135266  249775  724700369995885  1  I 
I  COMPUTED  IN  4?  STEPS  ACCURACY  a  51  DIGITS  I 

I _ » 

I  CPU  time  »  5.534146  seconds?  Page  faults  *  7  I 

I _ 1 

FIGURE  15 

Results  from  56  decimal  digit  interval  e  computation 

(  ERROR  a  1.0e-50  ) 

There  now  follows  a  series  of  results  produced  by  the  variable 
precision  interval  version  of  the  program.  The  first  result  is 
supplied  for  comparison  to  the  56  decimal  digit  arithmetic.  The 

other  results#  all  with  error  factors  of  90X  of  the  precision# 
provide  for  the  determination  of  the  relationship  between  amount 
of  precision  and  accuracy  of  the  results  that  is  obtainable.  They 
will  also  give  some  idea  of  the  cpu  costs  incurred  when  extending 
the  precision  of  a  computation  using  variable  precision  interval 
arithmetic. 

The  results  of  Figure  16  are  computed  with  56  decimal  diqits  of 
precision  with  an  error  factor  of  1.0e-50.  When  compared  to  the 
results  gained  from  the  56  decimal  digit  interval  version  with 
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the  sane  error  factor  one  finds  that  the  variable  precision 
interval  version  incurred  a  cpu  tine  cost  that  was  only  slightly 
greater.  The  accuracy  was  the  same  as  with  the  56  decimal  digit 
version. 


i  e  IS  EQUAL  TO  | 

I  C  2. 718281828459 04 52353 60 28747135266 249775724709 3699 95 88 4 60*  1 

I  2.7182818284590452353602874713526624977572470936999588465  3  1 
I  COMPUTE0  IN  42  STEPS  ACCURACY  a  51  DI6ITS  I 

1 . . . . . 1 

I  CPU  tine  *  7.043885  seconds?  Page  faults  »  12  1 

I _ ... _ I 

FIGURE  16 

Results  from  56-digit  variable  precision  interval  e  computation 

<  ERROR  »  1 . 0e-50  ) 

The  next  four  results  were  computed  with  100*  200*  500  and  1000 
digits  of  precision  resDect ively.  The  accuracy*  decimal  digits* 
was  91*  181*  452  and  899  respectively.  As  can  be  seen*  in  all 
cases  the  number  of  digits  of  accuracy  closely  matched  the  error 
factor. 


I  e  IS  EQUAL  TO 

I  C  2. 7 18281  828459 04 523 53602 87471 35 266249775 724 7 09 3 6999595*49 
I  669676277240766303535475945713821784020548761* 

I  2.718281828459045235360287471 3526624977572470936999595749 
I  669676277240*66303535475945713821784020548823  ] 

I  COMPUTED  IN  65  STEPS  ACCURACY  *  91  DIGITS 

I _ _ _ 

I  CPU  time  *  12.832085  seconds?  Page  faults  *  '’A 

I _ _ _ ... 

FIGURF  17 

Results  from  100-digit  variable  precision  interval  e  computation 

(  ERROR  ■  1 ■ 0e-90  ) 
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e  IS  EQUAL  TO 

C  2.71828182845904523536028747135266249775724709369995957496 
69676277240766303535 475 94571 3821 785251 664 27477466391 9520 
030599218174135966290435729003342957605956307381 32328627 
9434 90 76323325754 074104071474386* 

2.718281 82845904523536028747135266249775724709369995957496 
6967627724076630353547594571382178525166427427466391932O 
03059921817413596629043572900334295260595630738132328627 
94349076323325754  074104071474494  1 

COMPUTED  IN  111  STEPS  ACCURACY  =  181  DIGITS 


CPU  time  ■  42.957277  seconds?  Page  faults  *  44 


FIGURE  18 

Results  from  200-digit  variable  precision  interval  e  computation 

(  ERROR  *  I.Oe-180  > 


e  IS  EQUAL  TO 

C  2.71 8281 8284590452353602874713576624977572470O369995957496 
69676277240766303535475945713821785251664274274663919320 
03059921817413596629043572900334295260595630738132328627 
94349076323382988075319525101901157383418793070215408914 
9934  8841675092447  61  4  6066808226480016847741185  374  23454424 
37107539077744992069551702761 838606261331384583000752044 
93382656029760673711320070932870912744374704723069697720 
93101416928368190255151086574637721112523897844250569536 
9676041920744851869146132100699286691025901450170484  , 

2.718281 82845904523536028747135266249775724709369995957496 
69676277240766303535475945713821785251664274274663919320 
030599218174135966290435729003342952605956307381 32328627 
94349076323382988075319525101901 157383418793070215408914 
99348841675092447614606680822648001684774118537423454424 
37107539077744992069551702761838606261331384583000752044 
93382656029760673711 320070932870912744374704723069697720 
93101416928368190255151086574637721112523897844250569536 
9676041920744851869146132100699286691025901450170714  1 

COMPUTED  IN  233  STEPS  ACCURACY  «  452  DIGITS 


CPU  time  »  291.310798  seconds?  Page  faults  *  48 


FIGURE  19 

Results  from  500-digit  variable  precision  interval  e  computation 

<  ERROR  «  1 . Oe-4 50  ) 
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e  IS  EQUAL  TO 

C  2.71828182845904523536028747135266249775724709369995957496 
69676277240766303535475945713821785251664274274663919320 
030599218174135966290435729003342952605956307381 32328627 
94349076323382988075319525101901 157383418793070215408914 
99348841675092447614606680822648001684774118537423454424 
37107539077744992069551702761838606261331 384583000752044 
93382656029760673711 320070932870912744374704723069697720 
93101416928368190255151086574637721112523897844250569536 
96770785449969967946864454905987931636889230098793127736 
17821542499972957635148220826989519366803318252886939849 
64651058209392398294887933203625094431173012381970684161 
40397019837679320683282376464804295311802328782509819455 
8153017567173613320698112  50996181881593041690351  59888851 
93458072738667385894228792284998920868058257492796104841 
98443634632449684875602336248270419786232090021609902353 
04  3699418491 4631 4093 43 1 7381 4 36405462 531 520961  83690888707 
01 5999088894 9533 751 6 ’30483941 167953228780215021423391110 
135873958891 0558959275135114281728781 578602  , 

2.71828182845904523536028747135266249775724709369995957496 
69676277240766303535475945713821785251664274274663919320 
030599218174135966290435729003342952605956307381 32328627 
94349076323382988075319525101901157383418793070215408914 
99348841675092447614606680822648001684774118537423454424 
37107539077744992069551702761838606261331 384583000752044 
93382656029760673711 320070932870912744374704723069697720 
93101416928368190255151086574637721112523897844250569536 
96770785449969967946864454905987931636889230098793127736 
17821542499922957635148220826989519366803318252886939849 
64651058209392398294887933203625094431173012381970684161 
40397019837679320683  2823764  64  804295311802328782  50981  9455 
81530175671736133206981125099618188159304169035159888851 
93458072738667385894228792284998920868058257492796104841 
98443634632449684875602336248270419786232090021609902353 
043699418491463140934317381 43640546253152096183690888707 
01599908889495337516730483941 167953228780215021423391110 
1358739588910558959275135114281728781579011  1 

COMPUTED  IN  412  STEPS  ACCURACY  «  899  DIGITS 
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FIGURE  20 
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To  summarize  the  results  of  the  comparison  of  the  arithmetics  •• 
the  higher  the  precision  the  better  the  results  that  could  be 
obtained  and  the  more  cpu  time  that  was  consumed.  This  was 
expected?  not  only  was  there  more  information  (digits)  to  be 
processed/  but  the  extra  precision  allowed  the  extension  of  the 
loop  termination  factor.  The  extension  of  the  loop  termination 
factor  resulted  in  the  loop  being  executed  a  greater  number  of 
times  which  in  itself  would  account  for  a  large  increase  in  cpu 
time  consumption  (Figure  ? 1 ) .  A  summary  table  of  the  various  run 
times  for  the  different  arithmetics  is  given  in  Figure  21.  The 
cost  of  the  arithmetic  used  must  be  weighed  against  its  benefits. 
For  this  program  the  single  precision  version  produced 
acceptable  results;  the  double  precision  version  produced 
excellent  results.  The  single  precision  interval  version  did  not 
bring  to  light  any  faults  in  the  algorithm.  Since  the  single 
precision  interval  version  is  much  mere  sensitive  than  any  of  the 
other  interval  versions  there  was  no  justification  for  the  use  of 
the  other  versions  other  than  as  a  point  of  comparison.  The 
results  of  the  extended  precision  interval  versions  did 
demonstrate  that  these  arithmetics  were  capable  of  providing  a 
high  level  of  significance  in  those  situations  which  warrant  its 
use. 
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Exact  results  are  not  known  for  this  program  as  was  the  case 
with  the  e  computation;  these  results  are  presented  primarily  for 
comparisons  of  the  various  arithmetics  on  a  cost  per  digit  basis. 
Hence#  all  versions  of  the  program  use  the  same  loop  termination 
factors;  there  is  no  other  difference  among  the  various  versions 
other  than  precision.  The  algorithm  is  also  sufficiently  complex 
to  allow  a  demonstration  of  the  effects  that  algorithm 
configuration  can  have  upon  cpu  time  consumption.  The  various 
versions  of  the  alaorithm  are  presented  in  Appendix  J.  Figure  24 
displays  the  cpu  timings  for  each  of  the  runs  along  with  the 
largest  interval  width  produced  by  the  different  interval 
versions.  For  those  interested  the  various  results  are  to  he 
found  in  appendix  K.  Figure  23  displays  the  output  from  the 
single  precision  real  version  as  a  sample  output. 
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FIGURE  23 


heat  transfer 
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FIGURF  24 

Table  of  run  times  (in  seconds)  of  various  arithmetics 
(  ♦  --  with  output  only  produced  at  20  digits  precision  ) 
(  ♦♦  - -  all  invariant  expressions  removed  from  loops 

and  minimum  necessary  precision  used  > 


The  first  four  results  presented  in  Figure  24  are  those  obtained 
with  the  previously  implemented  arithmetics.  Notice  that  the  56 
decimal  digit  interval  version  shows  a  somewhat  anamolous  amount 
of  cpu  consumption.  This  results  from  the  fact  that  the  56 
decimal  digit  interval  support  package  relies  upon  the  multiple 
precision  package  for  the  production  of  several  supplied 
functions.  Among  these  are  the  sine  and  exponential  functions 
which  partially  form  the  main  expression  in  the  inner  loop  of  the 
computation.  The  cpu  time  consumption  of  the  56  decimal  digit 
Interval  version  is  strongly  affected  by  this  usage  of  the 
multiple  precision  routines.  The  result  is  that  the  cpu  time 
consumption  for  this  version  is  above  what  one  would  expect  after 


31 


viewing  the  results  of  the  e  computation  benchmark*  which 
included  extensions  to  the  loop  termination  factors. 

The  next  four  results  of  figure  24  are  those  obtained  with  the 
variable  precision  interval  version  of  the  heat  transfer  program 
with  precisions  of  56*  100*  200  and  500  respectively. 

The  next  result  shown  in  figure  24  was  partially  computed  with  20 
digits  of  precision.  The  inner  loop  of  the  algorithm  was  still 
computed  with  56  digits  of  precision*  but  the  value  to  be  output 
was  produced  with  a  precision  of  20  digits.  It  was  felt  that  this 
more  closely  reflected  a  reasonable  number  of  digits  output. 
That  is*  output  to  more  than  20  digits  or  so  of  precision  is  not 
realistic?  digits  after  the  20th  would  more  than  likely  be 
ignored.  The  reduction  of  the  only  the  output  computation  does 
not  result  in  any  large  reduction  in  the  total  amount  of  cpu  time 
consumed.  It  is*  however*  significant  when  one  considers  that  the 
reduced  precision  operations  account  for  only  60  operations  out 
of  more  than  6000  total  operations. 


The  test  result  shown  in  the  table  was  produced  with  a  fully 
optimized  version  of  the  heat  transfer  program.  That  is* 
optimized  in  the  sense  that  all  invariant  expressions  are  removed 


from  loops 

and  constants 

are  stored 

only 

to 

the  precision 

necessary  to 

maintain  their 

integrity. 

There 

is 

a  much  more 
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substantial  reduction  In  the  cou  time  consumption  than  was 
observed  In  the  previous  partially  optimized  version. 

In  summary*  the  writer  of  programs  containing  VARINTERVAL 
variables  must  remember  that  operations  upon  these  variables  to 
any  substantial  precision  incurs  a  non-trivial  amount  of  cpu  time 
consumption.  Thus  previously  acceptable  algorithm  configurations 
are  not  appropriate  when  implemented  with  variable  precision 
interval  variables.  The  optimization  techniques  used  on  the 
VARINTERVAL  version  of  the  algorithm  would  not  have  been  worth 
the  effort  on  the  single  precision  version  of  the  algorithm. 
Little  savings  can  be  realized  in  a  run  which  consumes  cpu  time 
measured  in  the  hundreths  of  a  second.  The  rewards  are*  however* 
sufficiently  great  for  one  to  apply  what  were  previously  trivial 
optimizations  to  proqrams  containing  the  variable  precision 
interval  data  type. 


4.1*2  A0.£yaiU&IiCQ-Ql-l!lC-Bullll£U£l-lQlei!>££i4XifiQ_E£fi£££S 

The  multilevel  interpretive  support  structure  consists  of  three 
*  levels.  As  has  been  mentioned  previously*  each  level  has  its  own 

set  of  clearly  defined  responsibilities.  The  first  level  controls 
*  the  precision  of  the  operation.  The  second  level  contains  the 

logic  for  controlling  the  Interval  aspects  of  the  operation.  The 
third  level  performs  the  actual  operation  as  a  set  of  operations 
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on  vectors.  The  multilevel  Interpretive  support  structure  is  to 
be  evaluated  at  each  level.  This  evaluation  will  be  made  by 
choosing  one  of  the  primitives  provided  by  the  supporting 
structure  and  tracing  the  interpretive  process  through  each 
level.  Appropriate  comments  will  be  made  concerning  the 
interactions  of  the  various  levels  as  well  as  identifyino  the 
salient  features  at  each  level. 

The  primitive  chosen  for  this  evaluation  is  MVPWR#  the  power 
function.  A  graphic  display  of  the  multilevel  interoretive 
structure  of  MVPWR  can  be  seen  in  Figure  ?5  which  presents  the 
calling  sequences  of  the  various  levels  of  the  primitive  as  a 
tree.  At  the  top  level  is  MVPWR  which  initiates  a  call  to  MXPWR 
at  the  second  level,  mxpur  is  supported  at  the  third  level  by  a 
broad  base  of  multiple  precision  package  routines  TAppendix  C3. 
Consider#  now#  each  level  in  turn. 
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FIGURE  25 

Tree  diagram  of  the  multilevel  Interpretive 
structure  of  the  power  function 


The  first  level#  *VPVR#  controls  the  precision  at  which  the 
operation  Is  to  be  performed.  The  first  action  taken  at  this 
level  Is  the  extraction  of  the  precision  of  the  operand.  The 
precision  at  which  the  operation  Is  to  be  performed  is  that  of 
the  operand.  The  precision  at  which 


the  operation  Is  to  be 


performed  is  set  by  assigning  the  precision  of  the  operand  to  the 
variable  T  *  located  in  common.  The  common  variable  T  is 
referenced  at  the  lower  levels  to  determine  the  precision  of  the 
operation.  Once  the  precision  has  been  set*  the  format  of  the 
operand*  Figure  2*  is  converted  to  that  used  at  the  lower  levels* 
Figure  49.  The  only  difference  is  the  insertion  of  four  extra 
digits  of  information  in  the  first  word  of  the  interval  variable. 
The  first  three  of  these  extra  digits  contain  the  precision.  The 
last  digit  is  a  temporary  variable  indicator  used  to  signify 
whether  or  not  the  variable  contains  an  intermediate  result  of  a 
computation  and  as  such  may  have  its  precision  altered.  This 
sequence  is  depicted  in  the  code  section  in  Figure  26. 


C  STATEMENT  FUNCTION  FOR  THE  EXTRACTION  OF  THE  COMBINED 
C  PRECISION  AND  TYPE 

EXTRACT (W0R01 )  *  IABS(W0RD1  -  (WORDI/1  0000) * 1 0000  ) 
C 

C  PICK  OFF  THE  TYPE  AND  THE  PRECISION  OF  THE  ARGUMENT 
W0RD1ARG  «  ARG<1> 

PREC  *  EXTRACT (WORDlARG)/10 
C 

C  SET  THE  PRECISION  FOR  THE  LOWER  LEVELS 
T  =  PREC 
C 

C  CONVERT  THE  FIRST  WORD  TO  MP  FORMAT 
ARGO)  ■  ARG  ( 1  )  /  1 0000 


FIGURE  26 

Code  section  from  MVPWR  performing  argument  preparation 


The  operand  is  then  passed  to  the  second  level  with  a  call  to 
MXPWR.  The  result  is  returned  in  the  temporary  work  space  TEMP. 
The  operand  is  restored  to  its  previous  format.  TEMP*  which  is 
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returned  in  the  tower  level  format/  is  converted  to  the  first 
level  format  using  the  precision  of  the  operand.  The  value  of 
TEMP  is  then  assigned  to  the  target  with  a  call  to  MVSTR.  MVSTR 
inspects  the  temporary  variabte  indicator  of  the  target.  If  the 
target  is  a  temporary  variable  then  the  contents  of  TEMP  and  the 
precision  information  are  copied  to  the  target.  If  the  target  is 
not  a  temporary  variable  then  adjustments  to  the  value  of  TEMP 
must  be  made  before  the  assignment  is  carried  out.  These 
adjustments  are  of  the  form  of  either  truncation  or  the  filling 
in  of  unused  digits  of  the  target  with  zeros/  depending  upon 
whether  the  precision  of  TEMP  is  greater  than  or  less  than  that 
of  the  result.  The  target  is  then  returned  to  the  user  program. 
This  seauence  is  depicted  in  figure  27. 


C  CALL  THE  SECOND  LEVEL  TO  PERFORM  THE  OPERATION 
CALL  MXPWR  (ARGO  )/  N/  TEMP) 

C 

C  RESTORE  THE  PARTICULARS  Of  THE  FIRST  WORD  Of  THE 
C  ARGUMENT  AND  THE  TEMPORARY  TEMP  GETS  THE  PRECISION  OF  ARG. 

TEMPO)  =  ISIGN(IABS(TEMP<1))*1000n  ♦ 

8  EXTRACT  (W0RD1  ARG)/  TEMPO)) 

ARGO)  s  W0RD1ARG 


C 

c 

c 


MAKE  THE  ASSIGNMENT  TO  RESULT 

CALL  MVSTR  (TEMP/  RESULT) 

RETURN 


FIGURE  27 

Code  section  of  MVPWR  for  result  preparation 


This  first  level  incurs  the  least  overhead  of  the  three  levels. 
The  major  portion  of  the  overhead  is  the  vector  copy  operation 

-37- 


9 


perforated  during  the  assignment  of  the  value  of  TEMP  to  the 
target.  The  overhead  of  precision  determination  and  format 
conversion  is  quite  small  in  comparison  with  the  overall  resource 
usage  unless  the  precision  is  unusually  small. 

The  second  level*  MXPWR*  contains  the  logic  for  performing  the 
interval  aspects  of  the  power  operation.  The  primary  function  of 
this  level  is  the  performance  of  a  ease  analysis  to  determine 

which  endpoints  are  to  be  used  in  the  production  of  the  result. 

The  case  analysis  is  necessary  to  ensure  that  the  result  is  a 

valid  interval.  In  general*  the  relation  Ca1*a23**n  » 

Cal **n* a2**n3  does  not  hold.  For  example*  C1*23**(-2)  * 

C2** (-2 ) *1 ** <-?  )  3  »  C.25*  13.  Additional  information  pertaining 

to  the  interval  operations  may  be  found  in  Appendix  D.  The  case 
analysis  for  MXPWR  is  displayed  in  Figure  28.  The  endpoints  of 
the  interval  operand  are  passed  singly  to  the  third  level  with  an 
indicator  which  stipulates  the  proper  rounding  strategy.  For  an 
interval  CA1*A23*  a  power  N  and  a  target  CZ1*Z23  with  the  above 
values  the  two  calls  would  be 

CALL  MPPWP  (A  1  *  N*  Z  2*  2) 

CALL  MPPWR  ( A  2  *  N*  Z1*  1) 

The  value  1  is  used  to  indicate  a  downward  directed  rounding* 
while  the  value  2  indicates  an  upward  directed  rounding. 
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#■ 


CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  A 

CASE  9 


the  POWER  is  even  and  positive  and  the 
OPERAND  is  positive 

RESULT ( t  e  f  t )  *  OPERAND ( l e f t )  **  POWER 

RESULT (right)  *  OPE RA ND < r i gh t >  **  POWER 
the  POWER  is  even  and  positive  and  the 
OPERAND  is  negative 

RESULT (left)  «  OPERAND(right)  **  POWER 
RESULT (right)  «  OPE  RAND ( l eft >  **  POWER 

the  POWER  is  even  and  negative  and  the 
OPERAND  is  positive 


RESULT (left)  *  OPE R A ND < r i gh t )  **  POWER 
RESULTCH  ght)  *  OPE RA ND ( l ef t )  **  POWER 

the  POWER  is  even  and  negative  and  the 
OPERAND  is  negative 

RESULT (left)  *  OPE  RA  ND ( l ef t )  **  POWER 

RESULT (right)  *  OPERA ND < r i gh t )  **  POWER 
the  POWER  is  odd  and  positive 
RESULT ( left)  *  OPE  RA  ND ( t  ef t )  **  POWER 

RESULT (right)  *  OPERAND (right)  **  POWER 
the  POWER  is  odd  and  negative 
RESULT ( t  e  f  t )  *  OPERA ND ( r i gh t )  **  POWER 

RESULT <  ri ght )  e  OPERA ND ( l ef t >  **  POWER 

the  POWER  is  even  and  positive  and  the 
OPERAND  contains  ter o  and  the  absolute 


value  of  the  right  endpoint  is  greater  than 
the  absolute  value  of  the  left  endpoint 
RESULT (left)  *  0 

RESULT  <  ri ght )  «  OPE RA ND ( r i gh t >  **  POWER 
the  POWER  is  even  and  positive  and  the 
OPERANO  contains  zero  and  the  absolute 


value  of  the  right  endpoint  is  less  than 
the  absolute  value  of  the  left  endpoint 
RESULT (left)  »  0 

RESULT ( r i ght )  «  OPE RA ND ( l e f t )  **  POWER 

the  POWER  is  even  and  negative  and  the 
OPERANO  contains  zero 


DIVISION  BY  ZERO  ERROR 


FIGURE  28 

Case  analysis  for  interval  power  function 


The  overhead  incurred  at  this  level  is  a  function  of  the 
operands.  The  case  analysis  of  ffXPWR  serves  as  an  example.  The 
determination  of  cases  one  through  six  requires  very  little 
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computation.  The  determ ina t i on  of  these  eases  involves  only  an 
inspection  of  the  word  containing  the  sign  rather  than  the  vector 
as  a  whole.  For  cases  seven  through  ten/  however/  the 
determinat ion  of  the  case  requires  a  comparison  between  the  two 
endpoints  of  the  interval  operand.  This  can  entail  a 
digit-by-diqi t  comparison  of  the  endpoints.  Naturally#  the 
greater  the  precision#  the  greater  the  overhead  that  will  be 
incurred  during  the  comparison. 

The  third  level#  MPPWP#  performs  the  operations  on  the  vectors 
representing  the  endpoints  of  the  interval  variable.  At  this 
level  the  interval  endpoints  are  no  longer  considered  as  forming 
one  entity#  but  are  treated  as  separate  operands.  This  level 
receives  from  the  second  level  a  single  endpoint  along  with  an 
indicator  which  stipulates  the  truncation  strategy  to  be  used.  An 
outline  of  the  algorithm  used  in  MPPWR  is  presented  in  Figure  ?9. 
The  algorithm  forms  the  power  by  performing  successive 
multiplications.  For  negative  powers  the  reciprocal  of  the 
argument  is  first  formed  with  a  call  to  MPREC.  The 
multiplications  are  performed  by  MPMUL. 


40 


tt  X**0  *  1 
IF  M  *  0 

C  RESULT  »  1 
RETURN  1 

#  SETUP  FOR  MULTIPLICATIVE  LOOP 
IF  N  <  0 

C  TEMP  =  1/X  3 
ELSE 

C  TEMP  *  X  1 
RESULT  =  1 

«  MULTIPLICATIVE  LOOP 
REPEAT 

C  IF  <N  IS  ODD)  RESULT  =  RESULT  *  TFMP 
TEMP  «  TEMP  **  2 
N  «  N/2  1 
UNTIL  (N  =  0) 


FIGURE  29 

Algorithm  for  MPPWR  (X**N) 


MPMUL  performs  the  multiplication  between  two  multiple  precision 
numbers  as  one  would  multiply  in  longhand.  That  is*  operand  one 
is  multiplied  by  the  last  digit  of  operand  two  forming  the  result 
in  a  work  space  in  common.  Then  operand  one  is  multiplied  by  the 
second  to  the  last  digit  in  operand  two  adding  the  result  to  the 
value  in  the  workspace  in  common  after  shifting  left  one  digit. 
The  multiplication  of  operand  one  by  a  digit  in  operand  two  is 
performed  with  a  call  to  MPMLP.  After  the  result  has  been  formed 
in  the  workspace  in  common/  it  is  normalized  and  roundings  are 
performed  by  MPNER.  An  outline  of  the  algorithm  of  MPMUL  is 
presented  in  Figure  30. 


»  *  COMPUTE  THE  SIGN  A  NO  EXPONENT  I 
I  *  OF  THE  RESULT  t 
I  RESULT. SIGN  *  SIGN(X)  *  SI6N(Y)  I 
!  RE  SUL  T. EXP ONE NT  *  EX PONENT < X> +E XPONENT ( Y)  » 

I  t  MULTIPLICATIVE  LOOP  I 
I  00  I  *  1  TO  PRECISION  I 
I  C  n  MULTIPLY  VECTOR  BY  SCALAR  1 
I  TEMP  s  TEMP  ♦  SHIP  T.L  E  FT.  I  ( X  *  I 
I  ITH.OIGITCYn  1 
I  PROPAGATE  CARRIES  3  I 
I  I 
»  NORMALIZE  AND  ROUND  RESULT  I 
I  Z  •  RESULT  I 
I _ ! 

EIGURF  30 

Algorithm  for  MPMULCX*  Y *  Z> 

MPNZR  performs  the  normalization  and  rounding  of  the  result  in 
the  workspace  in  common  and  assigns  the  value  to  the  target  of 
the  power  operation.  The  normal izat ion  is  performed  as  one  would 
expect^  the  digits  are  shifted  left  until  the  first  digit  is  a 
non-zero  digit.  Adjustments  are  then  made  to  the  exponent  to 
reflect  the  shift.  The  rounding  is  somewhat  more  involved.  The 
rounding  strategy  used  to  round  the  result  is  that  stipulated  by 
the  second  level*  either  a  downward  directed  rounding  or  an 
upward  directed  rounding.  The  results  of  interval  operations  at 
this  level  are  carried  to  twice  the  precision  with  four  guard 
digits  to  minimize  the  loss  of  information  due  to  finite 
precision  representation  of  real  results.  MPNZR  makes  use  of 
these  additional  digits  of  the  result  in  carrying  out  the 
roundings.  MPNZR  inspects  the  sign  of  the  result  to  determine 
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the  necessary  action  to  be  performed  to  carry  out  the  specified 
rounding  strategy.  For  a  negative  value#  an  upward  directed 
rounding  requires  a  simple  truncation  of  the  result  to  the 
necessary  precision.  For  example#  for  three  digits  of  precision 
the  value  -.3339999999  would  be  rounded  to  -.333.  For  a  positive 
value  an  upward  directed  rounding  requires  the  inspection  of  the 
additional  digits  carried  in  the  resutt  for  non-zero  values.  If 
any  non-zero  values  are  found  then  the  result  is  truncated  to  the 
necessary  precision  and  one  is  added  to  the  last  digit.  For 
example#  for  three  digits  of  precision  the  value  .3330000001 
would  be  rounded  to  .334.  The  actions  performed  for  a  downward 
directed  rounding  are  the  reverse  of  those  performed  for  the 
upward  directed  rounding.  A  summary  of  these  actions  is 
presented  in  Figure  31. 
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Summary  of  rounding  actions 


Nearly  all  of  the  overhead  associated  with  the  variable  precision 
Interval  data  type  is  incurred  at  this  level.  This  is  to  be 
expected  since  nearly  all  of  the  operations  performed  involving 


the  individual  components  of  the  vectors  which  are  used  to 
represent  the  variable  precision  interval  data  type  are  performed 
at  this  level.  This  includes  the  normalization  of  the  results  as 
well  as  the  carrying  out  of  the  proper  roundings  on  these 
results. 

In  summary*  each  level  of  the  multilevel  interpretive  support 
structure  operates  in  a  cooperative  manner*  with  its  own  clearly 
defined  responsibilities.  The  top  two  levels*  providing  control 
of  the  operations  upon  the  interval  variables*  incurs  only  a 
small  fraction  of  the  overhead  associated  with  the  use  of  the 
variable  precision  interval  data  type.  This  overhead  is  fairly 
independent  of  the  precision.  This  independence  is  due  to  the 
fact  that  the  contents  of  the  vectors  are  almost  never  operated 
upon  at  these  levels.  Any  variance  encountered  is  introduced  by 
an  occasional  copy  or  compare  operation  that  must  be  performed  on 
interval  variables  at  these  levels.  The  majority  of  overhead  is 
incurred  by  the  third  level*  which  actually  performs  the 
operations  involving  the  vectors  which  represent  the  variable 
precision  interval  data  type.  The  amount  of  overhead  at  this 
level  is  entirely  dependent  on  the  precision*  the  relationship 
being  exponential  in  nature  rather  than  linear*  Fiqure  24.  This 
dependence  on  precision  is  to  be  expected  as  this  level  deals 
exclusively  with  the  vectors. 


4.2  Su*M£Jf 

Interval  arithmetic  can/  at  times/  be  extremely  useful.  For 
instance/  it  can  be  used  to  indicate  the  limits  of  precision  of 
an  algorithm  for  a  given  set  of  data.  From  the  testing  it  was 
shown  that  much  better  bounds  on  the  results  could  be 
obtained  using  the  variable  interval  package.  This  was/  of 
course/  not  unexpected.  The  price  paid  was  in  runtime 
efficiency.  The  use  of  standard  precision  intervals  resulted  in 
approximately  an  order  of  magnitude  increase  in  execution 
time  over  that  of  single  or  double  precision  arithmetic. 
56  decimal  interval  arithmetic  resulted  in  a  further  increase  of 
more  than  one  to  more  than  two  orders  of  magnitude.  Variable 
precision  interval  arithmetic  with  precision  56  resulted  in  an 
increase  of  three  orders  of  magnitude.  It  should  be  noted  hire 
that  the  56  digit  version  was  based  upon  the  5<>  decimal  digit 
hardware  arithmetic  unit  of  the  Honeywell  H68/80  processor. 
The  software  simulated  basic  operations  of  the  variable  precision 
interval  arithmetic  caused  that  arithmetic  to  take  much  longer. 

One  obvious  application  of  variable  precision  interval 
arithmetic  would  be  to  validate  existing  programs.  Any  data 
sensitivity  discovered  could  be  included  in  a  description  of 
the  algorithm  and  directions  for  its  use.  Although  variable 
precision  interval  arithmetic  is  expensive/  its  cost  must  be 
balanced  against  possible  consequences  of  using  invalid  results. 


An  organization  like  the  Corps  of  Engineers  night  weigh  the 
possibility  of  a  defective  dan  or  the  cost  of  noving  100#000  tons 
of  dirt  against  the  cost  of  a  few  hours  of  eonputer  tine. 

A  nore  effective  technique  would  be  to  first  test  the 
algorithm  using  single  precision  interval  arithmetic.  Its 
relatively  snail  decrease  in  run  tine  efficiency  indicates  that 
its  use  is  more  than  justified  as  an  economical  means  of 
identifying  possible  trouble  areas  in  an  algorithm  for  the  data 
under  consideration.  The  more  expensive  variable  precision 
interval  package  could  be  applied  to  just  those  cases  where 
possible  trouble  areas  have  been  identified.  Variable  precision 
interval  arithmetic  can  be  used  to  determine  the  precision  of 
the  arithmetic  required  to  guarantee  a  given  significance  in  the 
results  of  an  algorithm.  Arbitrarily  picking  a  given 
precision  for  arithmetic  does  not  guarantee  results  in  which 
absolute  confidence  can  be  placed.  How  much  more  confidence  can 
one  have  in  results  obtained  on  a  60  bit  word  machine  than  in 
results  obtained  on  a  ^6  bit  word  machine? 

In  general#  whether  using  interval  or  regular  arithmetic#  the 
greater  the  precision  the  longer  the  run  time  required  for  a 
given  algorithm.  Having  variable  precision  interval  arithmetic 
would  allow  the  validation  of  algorithms  for  which  standard 
precision  interval  arithmetic  is  insufficient,  further#  the  cost 
of  this  validation  could  be  held  to  a  minimum  by  making  full  use 


of  the  ability  to  specify  different  precisions  for  different 


variables.  Computations  with  high  precision  reouirements  could 
be  performed  with  the  necessary  precision  while  those  less 
computationally  demanding  could  be  performed  with  a  lower#  less 
cpu  consuming#  precision.  In  any  case#  the  overhead 
associated  with  execution  in  interval  arithmetic  will  only  be  as 
great  as  required  for  the  necessary  precision. 

The  large  amount  of  processor  time  needed  for  variable  precision 
interval  arithmetic  is  its  major  drawback.  The  execution  speed 
of  interval  arithmetic  can  be  increased  in  several  ways.  One 
would  be  to  decrease  the  number  of  levels  of  interpretation 
required  in  the  current  implementation.  The  optimum  solution 
would  be  to  have  a  hardware  or  firmware  module  which  could 
execute  variable  precision  interval  arithmetic.  Many 
existing  minicomputer  systems  have  undefined  opcodes  for  just 
such  r equi rements.  *s  a  side  effect#  an  arithmetic  unit  that 
can  execute  variable  precision  interval  arithmetic  can  also 
execute  traditional  variable  precision  floating  point  arithmetic. 
This  me^ns  that  interval  arithmetic  could  be  used  to 
determine  the  required  arithmetic  precision  needed  to  obtain 
results  of  the  desired  accuracy.  The  algorithm#  then#  could  be 
executed  using  only  that  precision. 
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RATFOR  is  a  preprocessor  for  FORTRAN  (written  in  FORTRAN)  which 
allows  the  use  of  contemporary  control  structures  such  as 
DO-WHILE*  IF-THEN-ELSE  and  REPEAT-UNTIL  C93.  RATFOR  is  unique 
in  that  it  has  the  advantages  of  being  highly  portable*  easily 
used  and  fairly  efficient.  The  primary  purpose  of  RATFOR  is  to 
make  FORTRAN  a  better  programming  language  by  permitting  and 
encouraging  the  writing  of  readable  and  wel l-structured  programs. 
This  is  done  by  providing  the  control  structures  that  are 
unavailable  in  FORTRAN*  and  by  improving  the  "cosmetics"  of  the 
language. 

The  cosmetic  aspects  of  RATFOR  have  been  designed  to  make  it 
concise  and  reasonably  pleasing  to  the  eye.  It  is  free-form.  That 
is*  statements  may  appear  anywhere  on  an  input  line.  Other 
additions  also  improve  the  readability  of  the  language.  For 
example*  the  use  of  the  symbol  ">"  conveys  the  meaning  of  code 
more  rapidly  than  equivalent  strings  of  symbols  such  as  ",GT.". 

To  show  the  advantages  of  RATFOR  consider  the  construct 
IF  (condition)  THEN  (si)  ELSE  (s2). 

This  construct  is*  for  the  most  part*  fairly  easy  to  understand. 
IF  the  "condition"  is  true  THEN  statements  "si"  are  to  be 
executed*  ELSE  statements  "s?"  are  to  be  executed.  However*  this 
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construct  is  rather  awkward  to  express  in  FORTRAN.  AS  an  example* 
suppose  that  if  the  value  of  the  variable  X  were  greater  than  or 
equal  to  10.7*  then  X  is  to  be  divided  by  18.3  and  the  counter 
•COUNT  incremented  by  one.  However*  if  the  condition  were  false 
then  the  variable  X  is  to  be  multiplied  by  18.3  and  the  counter 
•COUNT  decremented  by  one.  One  way  of  expressing  this  in  FORTRAN 
as  shown  in  Figure  3?. 


• 

IF  CX.GE.10.7)  GO  TO 

10  1 

1 

X  *  X  *  18.3 

f 

1 

KOUNT  =  KOUNT  -  1 

• 

1 

GO  TO  20 

1 

• 

10 

X  *  X  /  18.3 

1 

1 

KOUNT  =  KOUNT  +  1 

1 

I 

20 

CONTINUE 

• 

FIGURE  3? 

Example  of  FORTRAN  code 

On  the  other  hand*  the  same  logic  could  be  expressed  in  RATFOR  as 
show  in  Figure  33. 


RATFOR  version  of  FORTRAN  code  in  Figure  3? 

With  these  additional  contemporary  programming  language 


IF  (X  >«  10.7) 

C 

X  »  X  I  18.3 
XOUNT  =  KOUNT  ♦  1 

1 

ELSE 

C 

X  =  X  *  18.3 
KOUNT  «  KOUNT  -  13 


FIGURE  33 
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constructs  the  programmer  is  able  to  produce  a  readable# 
structured  program  and  have  it  translated  automatically  into 
standard  FORTRAN.  ft  is  herein  that  RATFOR's  greatest  value 
ties.  A  hiqhly  readable#  structured  program  is  a  program  that  is 
easier  to  develop#  debug  and  modify.  A  programmer  assigned  to 
modify  an  existent  program  is  able  to  get  the  job  done  quickly  in 
direct  proportion  to  the  unders tandabi l i ty  of  the  code.  By  the 
automatic  translation  of  these  constructs  into  FORTRAN#  the 
programmer  is  able  to  devote  a  larger  portion  of  time  to  the 
development  of  ideas  rather  than  their  translation  while  being 
assured  that  this  translation  will  be  done  correctly  each  and 
every  time. 

RATFOR  is  written  in  a  portable  version  of  FORTRAN.  The 
installation  of  RATFOR  entails  the  production  of  an  object  code 
deck  for  RATFOR  and  the  providing  for  input  and  output 
attachments.  The  input  for  RATFOR  must  be  attached  to  the  FORTRAN 
logical  unit  number  10.  The  output  for  RATFOR  is  written  to 
FORTRAN  logical  unit  number  11.  Error  conditions  are  displayed  on 
FORTRAN  logical  unit  number  12.  There  is  also  a  version  of 
RATFOR  written  in  RATFOR  which  is  a  ouite  useful  aid  in 
understanding  the  translation  process  used  by  RATFOR.  The  RATFOR 
version  also  supplies  an  excellent  example  of  the  use  of  RATFOR. 
The  rest  of  this  appendix  provides  a  summary  of  the  statements 
and  operators  accepted  by  RATFOR. 


Appendix  a  -  51 


1.  RATFOR  STATEMENT  --  One  or  more  FORTRAN  statements  enclosed  in 
brackets.  (Brackets  optional  for  a  single  FORTRAN 
statement. ) 

EXAMPLE: 

C  X  *  1 

RFAf)  (5/1)  Z3 


CcodiiiOQii-Siittafioisi 

2.  IF  STATEMENTS 

A.  IF  (condition) 

PATFOR  STATEMENT 
EXAMPLE: 

IF  (X.EO.V)  f 

OLDX  *  X 
X  *  Y  *  *  2  3 

B.  IF  (condition) 

RATFOR  STATEMENT 

ELSE 

RATFOR  STATEMENT  —  ELSE  clause  is  optional 
EXAMPLE: 

IF  (X  as  Y) 

r 

OLOX  *  X 
X  =  Y**2 

1 

ELSE  X  =  X**2 

C.  IF  (condition) 

RATFOR  STATEMENT 
ELSE  IF  (condition) 

RATFOR  STATEMENT 

ELSE 

RATFOR  STATEMENT 
EXAMPLE: 

IF  (X.EQ.Y) 

Z  ■  0 

ELSE  if  (X  >  Y) 

C 

OLOX  *  X 
X  a  y**21 

ELSE 

tz  a  1 

Y  a  0 
X  a  03 
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3.  00  index  ■  initial/  final/  step 
RATFOR  STATEMENT 

EXAMPLE: 

00  I  *  2/100/2 

rxm  «  xu-i)  *  xu) 
xn-i)  *  yu-1) 

1 


Lflfio.£fioi£ol.stueaeQlsi 

4.  BREAK  --  exit  fro*  loop 

5.  NEXT  --  go  to  bottom  of  loop 


Looping  structures: 

6.  WHILE  (condition) 

RATF0R  STATEMENT 

EXAMPLE: 

WHILE  (X  >*  LIMIT) 

C  SUM  *  SUM  ♦  X 
X  *  KUR0(X) 

3 

7.  FOR  (initialization)  condition)  increment) 

RATFOR  STATEMENT  —  increment  and  initialization  are 

FORTRAN  statements)  condition  is 
a  FORTRAN  logical  expression. 

example: 

FOR  (I  ■  1)  X  <  Y)  I  *  I  ♦  2) 

Z  X  =  KURD  (X/I) 

SUM X  «  SUMX  +  X 

1 


8.  REPEAT 

RATFOR  STATEMENT 
UNTIL  (condition) 

EXAMPLE: 

REPEAT 

CSUM  *  SUM  ♦  X 
X  *  KURD (X ) 

3 

UNTIL  (X.LT. LIMIT) 
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9.  M  --  comment  statement 
EXAMPLE: 


#  this  is  a  comment  statement 
X  =  1  #  x  is  assigned  the  value  of  one 

10.  X  --  do  not  process  the  remainder  of  the  line?  just  shift 
left  one  column.  (Used  to  convert  FORTRAN  comment 
statements  to  RATFOR) 


11. 


DEFINE  label  value  —  value  will  be  substituted  for  label 

throughout  the  program 


EXAMPLE: 

DEFINE  YES  1  (replaces  "YES"  with  "1"  throughout 


program) 


12.  logical  operators  --  >  =  /  <»#  >#  <#  !#  ft# 

(ge#  le#  eq#  gt#  It#  or#  and#  not) 

13.  STATEMENT  NUMBERS  —  if  first  field  in  statement  is  numeric# 

it  is  assumed  to  be  a  statement  number. 


14.  INCLUOE  n  --  begin  reading  input  from  FORTRAN  I/o  unit  n.  This  is 

a  very  primitive  include  mechanism. 
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AUGMENT  is  a  preprocessor  which  allows  the  introduction  of 
non-standard  data  types  (e.g.  multiple  precision  interval 
numbers)  into  FORTRAN  programs.  The  introduction  of  a  data  type 
is  accomplished  by  passing  the  program  containing  the  extended 
data  types  to  AUGMENT  along  with  an  AUGMENT  description  deck.  The 
description  deck  contains  the  necessary  information  needed  by 
AUGMENT  to  properly  translate  the  extended  data  types  and  the 
operations  performed  upon  them  into  standard  FORTRAN.  This 
greatly  simplifies  the  task  of  writing  a  program  for  a 
multiple-precision  interval  computation/  or  converting  a  single 
(or  double)  precision  routine  to  multiple  precision. 

For  example/  if  AUGMENT  is  used  we  can  write  expressions  such  as 
shown  in  Figure  34  where  X/  Y/  and  Z  are  multiple  precision.  This 
will  automatically  be  translated  to  the  FORTRAN  equivalent  as 
shown  in  Figure  35. 

T  VAR  INTER VAL~x7~y7~7  T 
*  •  < 

I  •  I 

•  a  I 

|  X  *  Y  ♦  Z*FXP(X+1)/Y  1 
! _ I 

FIGURE  34 

Portion  of  Stuctured  Variable  Precision 
Interval  FORTRAN  code 
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I  INTEGER  X<24>#  Y<24)#  2(44)  I 

•  •  I 

■  •  I 

■  •  i 

I  CALL  MVA6DI  (X#  1#  MPTEMP)  t 

I  CALL  MVEXP  (MPTEMP#  MPTEMP)  I 

I  CALL  MVMUL  (Z#  MPTEMP#  MPTEMP)  I 

I  CALL  MVOIV  (MPTEMP#  Y #  MPTEMP)  I 

I  CALL  MV A  60  (Y#  MPTEMP#  X)  I 

I _ _ _ I 

FIGURE  35 

Standard  FORTRAN  equivalent  of  Figure  34 

The  description  deck  which  specifies  the  variable  precision 
interval  package  to  AUGMENT  is  shown  in  Figure  36.  The  AUGMENT 
description  deck  contains  7  major  sections.  The  first  section 
instructs  AUGMENT  on  how  the  data  type  is  actually  to  be  declared 
in  the  FORTRAN  output.  This  is  very  similar  to  the  PASCAL  type 
declaration.  The  next  section  gives  details  on  how  operations 
upon  the  extended  data  type  are  to  be  translated.  For  example#  if 
A  and  8  are  of  type  VARINTERVAL  then  A+B  would  be  translated  as 
CALL  MVA 66 <x #Y #RESULT) .  The  third  section  is  supplied  for  the 
extraction  of  the  sign  of  a  variable  precision  interval  variable. 
The  fourth  section  is  supplied  so  that  information  concerning  the 
inner  components  of  the  structured  variable  precision  data  type 
may  be  extracted.  The  following  section  gives  instructions  on  the 
conversion  of  functional  references.  Its  function  is  basically 
the  same  as  the  second  section.  The  sixth  section  contains 
conversion  information.  For  example#  conversion  from  real  to 
variable  precision  interval  would  entail  a  call  to  MVCRM.  The 
last  section  indicates  which  routine  is  to  be  called  to  perform 
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assignments.  In  this  case  It  Is  MVSTR 


♦DESCRIBE  VARINTERVAL 

DECLARE  INTEGER#  KIND  SAFE  SUBROUTINE#  PREFIX  MV 
OPERATOR  ♦  (#NULL  UNARY#  PRV#  S>#  -  (NEG#  UNARY)# 

♦  (ADD#  BINARY5#  PRV#  S#  S#  S#  COMM)#  *  (MUD# 

-  (SUB######  NONCOMM)#  /  (DIV)#  +*  (PWR?># 

♦  (ADDI####  INTEGER)#  *  (MULI)»  /  (DIVD#  **  (PWR)# 
.EQ.  (EG#  BINARY?#  PRV#  $#  LOGICAL#  COMM)# 

,NE.  (NE)#  .GE.  (GE#####  NONCOMM)#  .GT.  (GT)# 

.LE.  (LE)#  .L  T.  (LT) 

TEST  MPSIGA  (SIGA#  INTEGER) 

FIELD  SGN  (SIGA#  S IGB#  (S)#  INTEGER)# 

EXPON  (EXP A,  EXPB )  #  BASE  (BASA#  BASS)# 

NUMDIG  (DIGA#  DIGS)#  MAXEXP  (MEXA#  MEXB)# 

DIGIT  (DGA#  DGB#  (S#  INTEGER)) 

FUNCTION  ABS  (ABS#  (S)#  $)#  ASIN  (ASIN)#  ATAN  (ATAN)# 

COS  (COS)#  COSH  (C  OSH ) #E  XP  (EXP)#  INT  (CMIM)# 

LN  (LN)#  LOG  (LN)#  SIN  (SIN)#  SINH  (SINH)# 

SORT  (SORT)#  TAN  (TAN)#  TANH  (TANH)# 

MAX  (MAX#  (S#  $))#  MIN  (MIN)#  ROOT  (ROOT)# 

MPINF  ( INF (SUBROUTINE) #($# INTEGER# INTEGER# 
HOLLERITH)#LOGICAD#  MPOUTF  (  OUT  F  (  SUB  ROUT  I  NE  )  )  # 

MPINF  (INF(SUBROUTINE)#  (S#  INTEGER#  INTEGER# 
INTEGER))#  MPOUTF  ( OUT F ( SUBROUT  I NE ) ) 

CONVERSION  CTM  (COM#  DOUBLE  PRECISION#  *#  UPWARD)# 

CTM  (CIM#  INTEGER)#  CTM  (CRM#  REAL)# 

CTD  ( CMD(SUBROUTINE) #S#DOUBLE  PR E C  I S I  ON# D OWNW AR D ) # 
CTI  (CMI(SUB ROUTINE)##  INTEGER)# 

CTR  (CMR(SUBROUTINE) ##  REAL) 

SERVICE  COPY  (STR) 

COMMENT  END  OF  AUGMENT  DESCRIPTION  DECK  FOR  MP  PACKAGE 


FIGURE  56 


AUGMENT  description  deck 

Interval 


for  the  Variable  Precision 
data  type 
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MP  is  a  multiple  precision  arithmetic  paekageriOI.  It  is  almost 
completely  machine  independent/  and  should  run  on  any  machine 
with  an  ANSI  standard  FORTRAN  compiler/  sufficient  memory/  and  a 
wordlength  of  at  least  16  bits.  The  machine  dependent  sections 
are  those  which  deal  with  packed  multiple  precision  numbers. 
Some  modifications  would  be  necessary  for  a  wordlength  of  less 
than  16  bits. 

MP  has  been  tested  on  a  Univac  110R  (e  level  FORTRAN  v>/  a 
Univac  1100/42  (e  and  T  level  FORTRAN  vz  ascii  FORTRAN)/  a  POP  10 
(FORTRAN  10  and  FORTRAN  40)/  an  IBM  360/50  (FORTRAN  g  and  FORTRAN 
h/  opt  *  2)/  an  IBM  360/91  and  370/168  (FORTRAN  h  extended/  opt  * 
2)/  a  Cyber  76  (ftn  4.2/  opt  -  1)/  a  POP  11/45  (dos)/  and  a 
Honeywell  68/80  (Multics  release  6.1).  These  machines  have 
effective  integer  word  lengths  ranging  from  16  to  48  bits. 

MP  numbers  are  in  normalized  floating  point  format  as  shown  in 
Figure  37.  The  base  (B)  and  number  of  diqits  (T)  are  arbitrary 
(subject  to  some  restrictions  given  below)/  and  may  be  varied 
dynami ca l l y. 
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II  III  II 
I  s  I  expon  I  T1  I  T2  I  .  .  .  I  TN  I 
I _ I _ I _ I _ I _ I _ I 

FIGURE  37 

Multiple  precision  number  format.  s  *  sign 
(0#  -1  or  *1)  expon  =  exponent  (to  base 
B)  Ti  *  digit  (in  base  B)  Note  that  words  2 
to  T  +  2  are  undefined  if  sign  =  0. 

Arithmetic  is  rounded/  and  four  guard  digits  are  used  for 
addition  and  multiplication/  so  the  correctly  rounded  result  is 
produced.  Division/  sqrt  etc  are  done  by  Newtons  method#  but 
give  the  exact  result  if  it  can  be  represented  with  T-2  digits. 
Other  routines  (mosin/  mpln  etc)  usually  qive  a  result  y  »  f(x) 
which  could  be  obtained  by  making  an  o(B**(1-T))  perturbation  in 
x#  evaluating  f  exactly#  then  making  an  o(B**(1-T))  perturbation 
in  y. 

Exponents  can  lie  in  the  range  -M#  ...  #  +M  inclusive#  where  M  is 
set  by  the  user.  On  underflow  during  an  arithmetic  operation#  the 
result  is  set  to  zero  by  subroutine  MPUNFL.  On  overflow 
subroutine  WPOVFL  is  called  and  execution  is  terminated  with  an 
error  message.  Error  messages  are  printed  on  logical  unit  LUN# 
where  LUN  is  set  by  the  user#  and  then  execution  is  terminated  by 
a  call  to  subroutine  WPERR.  It  is  assumed  that  logical  records 
of  up  to  6 0  characters  may  be  written  on  unit  LUN.  A  working 
array  of  size  MXR  (see  below)  must  be  provided  in  common. 
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The  parameters  B/  T/  M/  L UN  and  MXR  are  passed  to  the  utitity 

routines  in  common/  together  with  a  working  array  R  which  must  be 

sufficiently  large  (see  below).  Most  routines  use  the  statements 

COMMON  B/  T/  M/  LUN/  MXR/  R 
INTEGER  8 /  T/  R (1  > 

and  it  is  assumed  that  R  is  dimensioned  sufficiently  large  in  the 
calting  program/  and  that  MXR  is  set  to  the  dimension  of  R  in  the 
cal l inq  program. 

It  is  assumed  that  the  compiler  passes  addresses  of  arrays  used 
as  arguments  in  subroutine  calls  (i.e./  call  by  reference)/  and 
does  not  check  for  array  bounds  violations  (either  for  arguments 
or  for  arrays  in  common).  Apart  from  these  violations/  MP  is 
written  in  ANSI  standard  FORTRAN  (ANSI  x3. 9-1966).  This  has  been 
checked  by  the  pfort  verifier.  The  only  machine-dependent 
routine  is  MPUPK  (which  unpacks  characters  stored  several  to  a 
word).  Other  routines  which  may  require  trivial  changes  are 
MPSET  (which  causes  an  integer  overflow)/  MPINIT  and  TIMEMP  (see 
comment  s  below). 

2.  C.flQSiCdiQtS 

There  are  several  constraints  that  must  observed  in  using  the  MP 
package.  They  are: 
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1)  The  base  B  must  be  at  least  2. 

2 )  T  (number  of  digits)  must  be  at  least  2. 

3)  M  (exponent  range)  must  be  qreater  than  T  and  less 

than  1/4  the  largest  machine-representable 
i ntege  r  . 

4)  8*B**2-1  must  be  no  greater  than  the  largest 

machine-  representable  integer 

5)  The  integers  0 #  1 #  ...  #  B  must  be  exactly 

representable  as  single  precision  floating  point 
numo  er s 

6)  B**(T-1)  should  be  at  least  10**7. 

fa  and  T  may  be  set  to  qive  the  equivalent  of  a  specified  number 
of  decimal  places  by  calling  MPSET  (see  below)#  or  may  be  set 
directly  by  the  user.  If  MPSET  is  not  called#  the  user  must 
remember  to  initialize  M#  LUN  and  MXR  (see  above)  as  well  as  B 
and  T  before  callinq  any  MP  routines.  (It  would  be  possible  to 
use  labelled  common  instead  of  blank  common  throughout#  and  set 
default  initializations  in  a  data  statement.) 

To  conserve  space  choose  B  fairly  large#  subject  to  the  natural 
restrictions  of  word  size  and  the  constraint  given  above.  Maximum 
values  for  the  base  for  various  word  sizes  are  given  below  in 
Figure  38.  The  figures  given  as  a  power  of  ten  are  useful  in 
that  their  use  makes  for  easier  debugging  of  user  programs  which 
call  the  MP  package.  It  is#  for  example#  much  easier  for  the 
user  to  determine  the  base  ten  value  of  a  digit  in  base  10000 
rather  than  a  digit  in  base  16384. 
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I  48  bits/  could  use  8  =  4194304  or  1000000  I 

I  36  bits/  could  use  8  -  65536  or  10000  1 

I  32  bits/  could  use  8  =  16384  or  10000  I 

I  24  bits/  could  use  8  =  1024  or  1000  • 

I  18  bits/  could  use  B  =  128  or  100  I 

i  16  bits/  could  use  8  =  64  or  10  i 

I . ___ . . . . I 

FIGURE  38 

Maximum  values  of  base  for  various  word  sizes 

Avoid  multiplication  or  division  by  MP  numbers/  as  these  take 
o ( T**2 )  operations/  whereas  multiplication  or  division  by 
integers  take  o(T)  operations. 

MP  numbers  used  as  arguments  of  subroutines  need  not  be  distinct. 
For  example# 

CALL  MPA  D  0  (X/  Y /  Y)  or  CALL  MPEXP  (X/  X) 
are  acceptable.  However#  distinct  arrays  which  overlap  should 
not  be  used. 

The  MP  packaqe  used  with  the  interval  data  type  extension  has 
been  modified  to  incorporate  the  proper  roundings  needed  for 
interval  arithmetic.  This  version  of  the  MP  package  passes  an 
added  parameter  to  indicate  the  type  of  rounding  desired.  It  not 
only  incorporates  the  directed  roundinqs  but  the  standard 
rounding  and  truncation  as  well. 
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3.  aumaia£x_al_Ajiailatjle_I3E_BfluliQC5 


basic  arithmetic  -  mpadd#  mpaddi#  mpaddq#  mpdiv#  mpdivi#  mpmul# 

mpmuli#  mpmulq#  mprec/  mpsub 

powers  and  roots  -  mppwr,  mppwr2#  mpqpwr#  mproot#  mpsqrt 

elementary  functions  -  mpasin/  mpatan#  mpcos#  mpcosh#  mpexp# 

mpln#  mplngs*  mplni#  mpsin#  mpsinh#  mptan# 
mpt  anh 

constants  -  npeps/  npinaxr/  upminr/  mppi  #  mppigl 

input  and  output  -  mpdump#  mpi n»  mpine»  mpinf#  mpout#  mpoute# 

mpout f  #  mpout  2 

conversion  -  mpcam#  mpcdm#  mpc i m/  mpcmd#  cpcmde#  mpcmef#  mpcmi# 

mpcmim#  mpcmr#  mpcmre#  mpcqm#  mpcra 

comparison  -  mpcmpa#  mpcmpi#  mpcmpr,  mpcomp#  mpeq#  mpge#  mpgt/ 

mp l e #  mp  1 1  #  mpne 

general  utility  routines  -  mpabs#  mpclr#  mpcmf#  mpgcda#  mpgcdb# 

mpinit#  mpkstr#  npinax/  mpmin#  mpneg#  mppack# 
mppoly#  MP  SET*  mpstr#  mpunpk 

error  detection  and  handling  -  mpchk#  moerrx  mpovfl#  mpunfl 

AUGMbNT  interface  routines  -  mpbasa#  mpbasb#  mpdga#  mpdgb# 

mpdiga#  mpdigb#  mpexpa«  mpexpb#  mpmexa# 

mpmexb#  mpsiga#  mpsigb 

miscellaneous  routines  used  by  the  above  -  mpadd2#  mpadd3# 

mpartl#  mpbes2#  mperf2#  mperf3#  mpexpl# 

mpext/  mpqcd/  mphank#  mpio#  mplns#  mpl235# 
mpmlp#  mpmul2#  mpnzr#  mpsinl#  mpupk#  mp40d# 
mp40e#  mp40f#  mp40q#  timemp 

4.  Bfiitcittfid-UaiDss 


When  writing  programs  which  use  MP  via  the  RATFOR/AUGMENT 
interface#  it  is  safest  to  avoid  using  the  following  identifiers 
except  with  their  reserved  meaning. 


base 

see 

description 

of 

mpbasa 

and  mpbasb  in 

section  6 

c  td 

see 

description 

of 

mpcmd . 

cti 

see 

description 

of 

mpcmi . 

c  tm 

see 

description 

of 

mpc  am# 

mpcdm#  mpcim# 

mpcqm# 
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mpc  rm 

and 

mpurpk • 

c  tp 

see 

description 

of 

mppack . 

c  tr 

see 

description 

of 

mpcmr . 

diyi  t 

see 

description 

of 

mpdga  and  mpdgb. 

e  xpon 

see 

description 

of 

mpexpa  and  mpexpb. 

f  rac 

see 

descript  ion 

of 

mpc  mf . 

g  cd 

see 

description 

of 

mpg  cda. 

initialize 

see 

description 

of 

mpi ni t  . 

int 

see 

descri pti on 

of 

mpc  mi m • 

l  og 

see 

description 

of 

mpln  and  mplni. 

maxexp 

see 

description 

of 

mpmexa  and  mpmexb. 

mpxxxx 

(for 

any  letters 

or 

digits  xxxx) . 

mu  1 1 i pa  k 

see 

comments  in 

description  deck  above. 

multiple 

see 

comments  in 

description  deck  above. 

numdi q 

see 

description 

of 

mpdiqa  and  mpdigb. 

sgn 

see 

desc  r i pt i on 

of 

mpsiga  and  mpsigb. 

for  the  following*  if  the  reserved  word  is  xxxx/  see  the 
description  of  mpxxxx  in  section  6. 


abs/  addq/  artl  /  asin/  atan«  bern/  besj/  cam/  cmf/  cmim/  cnpa# 
comp/  cos/  cosh/  cqm/  daw/  ei/  erf/  erfc/  exp/  expl#  gam/ 
gamq/  li/  In/  Ingm/  IngS/  Ini/  Ins/  max/  min/  mulq/  qpwr/  rec/ 
root/  sin/  sinh/  sqrt/  str/  tan/  tanh/  zeta. 
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Appendi x  0 

t3atti£fflati£al_easis_lQL_lat£cttal_AcitbMri£ 

The  details  of  the  mathematical  basis  for  interval  arithmetic  are 
developed  in  Moore  C6D.  The  set  of  interval  numbers  is  the  set 
of  all  closed  intervals  on  the  real  number  line.  An  interval  may 
be  represented  by  an  ordered  pair  of  real  numbers  Ca#b3  where  a  < 
b.  if  a  =  b#  then  the  interval  is  said  to  be  degenerate. 

The  operations  of  addition#  subtraction#  multiplication#  and 
division  between  two  intervals  (except  for  the  division  of  one 
interval  by  an  interval  containing  zero)  are  defined  as  follows 
where  $  is  one  of  the  above  operations: 

Ca#b3  S  Cc/d3  ={»$/:  x  (  Ca#bJ  and  y  €  Cc#d3> 

Each  of  the  operations  of  addition#  subtraction#  multiplication# 
and  division  may  be  defined  as  follows: 

Ca#b]  +  Cc#dD  =  Ca+c#b+d3 
C  a  #b3  -  Cc#d3  =  Ca-d#b-c3 

Ca#b3  *  Cc#d3  =  Cm i n{a c #a d #bc #bd >#ma xCa c #ad #b c #bd>3 

Ca#b3  /  Cc#d3  =  Cm i n fa /c # a /d#b /c #b /d ># max Ca/c # a/d#b/ c#b/d>3 
if  0  %  Cc#d3 

In  the  cases  of  multiplication  and  division#  by  examining  the 
signs  of  the  endooints  of  the  intervals  being  multiplied  or 
divided;  a  determination  in  advance  can  be  made  of  which  products 
or  quotients  will  be  the  maximum  and  the  minimum. 
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J  w. 


The  following  real  single  valued  functions  of  intervals  may  be 
useful: 


The 

midpoint  of  an  interval#  mid 
be  the  real  number  (a+b>/2. 

( Ca  #b  3  )  # 

i  s 

defined  to 

* 

The 

length  of  an  interval#  length 
to  be  the  real  number  b~a. 

( Ca#b  3) 

# 

is  defined 

The 

supremum  of  an  interval#  sup 
number  a. 

( Ca  #b  3  )  # 

i  s 

the 

real 

• 

The 

infimum  of  an  interval#  inf  (Ca#b3># 
number  b. 

i  s 

the 

real 

The 

distance  from  interval  Ca#b3 

to  interval 

Cc#d3 

#  di  s 

( Ca#b3#Cc#d3 ) #  is  defined  to  be  the  real  number 
maxi  I  c  —  a  I # I d-b  I  ). 


The  following  interval  single  valued  functions  of  intervals  may 
also  be  useful : 

The  union  of  intervals  ta#b3  and  tc#d;j#  union 
(  Ca# b3# Cc# d3 )  #  is  defined  to  be  the  smallest 
interval  containing  both  Ca#b3  and  Cc#d3  and  is 
given  by  Cmin{a#c>#maxlb#d>3.  The  intersection  of 
intervals  Ca#b3  and  Cc#d 3#  intsct  ( C a# b 3# Ce# d3 ) # 
is  defined  to  be  the  largest  interval  contained  in 
each  of  Ca#b3  and  Cc#d3  or  is  empty  if  Ca#b3  and 
Cc#d3  are  disjoint  intervals  and  is  given  by 
Cmax{a#c}#minlc#d>3. 


The  relational  operations  may  be  defined  on  intervals  as  follows: 


Ca#b3  =  Cc#d3  if  and  only  if  a  *  b  *  c  »  d 

'  The  above  definition  means  that  two  intervals  are  equal 

if  and  only  if  they  both  are  degenerate  and 
represent  the  same  real  number.  This  definition 
is  employed  instead  of  the  more  general  definition 
•  of  testing  for  a  =  c  and  b  =  d.  The  reason  the 

more  general  definition  is  not  used  is  because  we 
will  regard  intervals  as  bounds  on  an  exact  but 
unknown  real  number.  If  two  intervals  were  not 
degenerate  and  if  both  intervals  had  the  same 
endpoints#  then  the  intervals  may  not  represent 
the  same  exact  real  number.  The  only  way  for  the 
two  intervals  to  represent  the  same  exact  real 
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number  is  for  both  intervals  to  be  degenerate  with 
their  endpoints  equal  to  the  real  number.  We  also 
say  that 


Ca*b3  t  Cc*dJ  if  and  only  if  Ca*b3  intersection  Cc*dD  *  0 

This  definition  means  that  two  intervals  are  not  equal 
if  and  only  if  they  are  disjoint  intervals  and 
cannot  represent  the  same  exact  real  number. 


ta*bl  £  tc*d3  if  and  only  if  b  <  c 

The  above  definition  means  that  two  intervals  are 
ordered  by  the  £  relational  operator  if  and  only 
if  V  x  €  Ca*bl  and  V  y  €■  Cc*d3*  x  £  y. 


Ca*b3  >  Cc*d1  if  and  only  if  a  >  d 

The  above  definition  means  that  two  intervals  are 
ordered  by  the  >  relational  operator  if  and  only 
if  V  x  €  Ca*bD  and  V  y  €  Cc*dD*  x  >  y. 


Interval  valued  functions  of  interval  variables  are  defined  in 
terms  of  real  valued  functions  of  real  variables.  If  f  is  a  real 
valued  function  of  a  real  variable*  then  f  may  be  extended  to  an 
interval  valued  function*  F*  of  an  interval  variable  by  defining 

F  (Ca*bl)  m  <f  (x)  :  x  €  Ca*b]> 


If  f  is  defined  and  continuous  on  Ca*bD*  then  F(Ca*b3)  will  be  an 
interval.  If  intervals  are  to  represented  as  pairs  of  real 
numbers*  then  the  above  definition  is  not  operational.  Some 
means  is  needed  for  deriving  the  endpoints  of  the  image  of  ta*b] 
under  the  function  F.  The  endpoints  of  the  image  interval  will 
be  the  image  under  f  of  points  of  Ca*b3. 
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For  functions/  f/  that  are  monotonic  on  the  interval  Ca#bJ/  the 
endpoints  of  the  image  of  £a/b3  under  F  can  be  expressed  as  the 
result  of  the  function  f  evaluated  at  the  endpoints  of  Ca/bl.  If 
f  is  monotonic  increasing  on  Ca/b]/  then  F(Ca/b3)  *  Cf(a>/  f(b)3. 
If  f  is  monotonic  decreasing  on  Ca/bl/  then  F(ta/b3)  «  C  f(b>/ 
f(a)  3.  If  f  is  not  monotonic  over  Ca/b]/  then  Ca#b3  can  be 
divided  into  disjoint  sub int erval si  X(i)/  i  «  1/2/3/.. .n#  where  U 
X(i)  »  Ca/bl  and  f  is  monotonic  on  each  X(i).  In  this  case 
FtCa/bD)  *  U  f <X(i )). 
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Appendix  E 


&fii££ieiifiQ-&l.&y.SsuiiQ£2_Axailikl£ 

i*  Hc4££iBlifiQ-Ql_A*aiiabl£_¥a£iabl£_E£££i5iflQ_lQic£jiaJL-Bou*  ioet 

The  suggested  method  of  calling  the  MV  Routine  directly  is  given 
first.  Second  (third*  ...)  alternative  method(s)  (if  any)  may  be 

» 

used  when  the  AUGMENT  interface*  described  earlier*  is  used  to 
process  the  user  program.  Unless  otherwise  noted*  X*  Y*  Z 
represent  MV  numbers  I*  J*  K*  L*  IX  etc.  represent  integers*  RX* 
RY  etc.  represent  reals*  and  DX*  DY  etc.  denote  double  precision 
numbers.  See  Appendix  C  for  definitions  of  B*  T*  M*  L"N*  MXR*  R 
etc.  Space  required  means  the  dimension  of  R  in  common.  If  not 
specified*  space  required  is  no  more  than  Z*T+4  words.  if  not 
specified*  space  required  is  no  more  than  ?*T+4  words. 

MVABS  ****** 

usage  —  CALL  MVABS  (X*  Y)  or  Y  «  ABS  (X) 
description  —  sets  Y  «  ABS(X)  for  MV  numbers  X  and  Y 
MVAOD  ****** 

usage  —  CALL  MVAOD  (X*  Y*  Z)  or  Z  *  X  ♦  Y 

♦ 

description  --  adds  X  and  Y*  forming  result  in  Z*  where 
X*  Y  and  Z  are  MV  numbers.  four  guard  digits 
are  used*  and  then  R*-rounding. 

• 

HVASIN  ****** 

usage  —  CALL  MVASIN  (X*  Y>  or  Y  *  ASIN  (X) 

description  --  returns  V  *  ARCSIN(X)*  assuming  ABS(X) 
•le.  1*  for  MV  numbers  X  and  Y.  Y  Is  in  the 
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MVATAN 


MVCDM 


MVCIM 


MVCLR 


MVCMO 


range  -p 1/2  to  +pi/2.  method  1*  to  use 
MVATAN/  so  time  is  o(M(T)T).  dimension  of  R 
must  be  at  least  5T  +  12 


****** 

usage  —  CALL  MVATAN  (X/  Y)  or  Y  *  ATAN  (X) 

description  --  returns  Y  *  ARCTAN(X)  for  MV  X  and  Y / 
using  an  o(T.M(T))  method  which  could  easily 
be  modified  to  an  o  ( SORT (T )M (T ) )  method  (as 
in  MPEXP1).  Y  is  in  the  range  -pi/2  to  ♦pi/2, 
for  an  asymptotically  faster  method/  see  - 
fast  multiple-  precision  evaluation  of 
elementary  functions  (by  R.  P.  Brent)/  J.  ACM 
23  (1976)/  242-251/  and  the  comments  in 

MPP1GL.  dimension  of  R  in  calling  program 
must  be  at  least  5T+12 

****** 

usage  —  CALL  MVCDM  (OX/  Z)  or  Z  »  DX 

description  —  converts  double  precision  number  OX  to 
mul ti pte-prec i s i on  Z.  some  numbers  will  not 
convert  exactly  on  machines  with  base  other 
than  two/  four  or  sixteen,  this  routine  is 
not  called  by  any  other  routine  in  MV/  so  may 
be  omitted  if  double  precision  is  not 
available. 

****** 

usage  —  CALL  MVCIM  (IX/  Z)  or  Z  *  IX 

description  --  converts  integer  IX  to 

multiple-precision  Z.  note  -  IX  should  not 
be  the  same  location  as  Z(1)  in  CALL. 


usage  —  CALL  MVCLR  (X/  N) 

description  --  sets  X(T+3)/  ...  /  X(N+2)  to  *ero/ 

useful  if  precision  is  going  to  be  increased. 

****** 

usage  —  CALL  MVCMO  (X/  DZ)  or  DZ  =  X 

description  --  converts  multiple-precision  x  to  double 
precision  DZ.  assumes  X  is  in  allowable 
range  for  double  precision  numbers.  there 
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mvcmi 


MVCMR 


MVCOMP 


MVCOS 


MVCOSH 


MVCRM 


Is  some  toss  of  accuracy  if  the  exponent  is 
large. 


****** 

usage  —  CALL  MVCMI  (X*  12)  or  12  =  X 

description  --  converts  multiple-precision  X  to  integer 
12#  assuming  that  X  not  too  large  X  is 
truncated  towards  aero.  if  int(X)is  too 

large  to  be  represented  as  a  single  precision 
integer/  12  is  returned  as  zero.  the  user 
may  check  for  this  possibility  by  testing  if 

< (X (1 > ,ne.O).and. (X(2).gt.O) .and. < IZ.eq.O) ) 

is  true  on  return  from  MVCMI. 

****** 

usage  —  CALL  MVCMR  (X/  R2)  or  RZ  a  y 

description  --  converts  mut t i ple-prec i si  on  x  to  single 
precision  RZ.  assumes  X  in  allowable  range, 
there  is  some  loss  of  accuracy  if  the 
exponent  is  targe. 


****** 


usage  —  J  *  MVCOMP  (X/  Y) 

description  — -  compares  the  multiple-precis  ion  numbers 
X  and  Y/  returning  +1  if  X  .gt.  Y,  -1  if  X 
.It.  Y/  and  0  if  X  .eq.  Y. 


usage  —  CALL  MVCOS  (X/  Y)  or  Y  =  COS  (X) 

description  --  returns  Y  a  COS(X)  for  MV  X  and  Y,  using 
MVSIN  dimension  of  R  in  common  at  least 
5T+12. 


****** 


usage  —  CALL  MVCOSH  (X/  Y)  or  Y  *  COSH  <X) 

description  —  returns  Y  a  COSH(X)  for  MV  numbers  X  and 
V/  X  not  too  large,  uses  MVEXP/  dimension  of 
R  in  common  at  least  5T+12 


usage  —  CALL  MVCRM  (RX/  Z)  or  2  a  rx 
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MVDIV 


MVEQ 


MVEXP 


MVGE 


MVGT 


MVGET 


description  --  converts  single  precision  number  RX  to 
multiple-precision  Z.  some  numbers  will  not 
convert  exactly  on  machines  with  base  other 
than  two#  four  or  sixteen. 


****** 


usage  —  CALL  MVDIV  (X*  Y  *  Z)  or  Z  *  X/Y 

description  --  sets  Z  «  X/Y#  for  MV  X#  Y  and  Z.  MPERR 
is  called  if  Y  is  zero.  dimension  of  R  in 
calling  program  must  be  at  least  4T+10  (but 
Z  < 1 >  may  be  R(3T+9>>. 


usage  —  if  (MPEQ  (x#  Y>>  ...  or  if  <X  .EQ.  Y>  ... 

description  --  returns  logical  value  of  (X  .EQ.  Y)  for 
MV  X  and  Y.  MVEQ  Must  be  declared  logical 
unless  augment  interface  is  used. 


****** 

usage  —  CALL  MVEXP  (X#  Y>  or  Y  «  EXP  (X) 

description  --  returns  Y  =  EXP(X)  for  MV  X  and  Y.  EXP 
of  integer  and  fractional  parts  of  X  are 
computed  separately,  see  also  comments  in 
MPEXP1.  time  is  o(S QRT (T ) M  (T  )  ) .  dimension  of 
R  must  be  at  least  4T+10  in  calling  program 


****** 

usage  —  if  ( MPGE  (X#  Y>)  ...  or  if  (X  .GE.  Y)  ... 

description  --  returns  logical  value  of  (X  .GE.  Y)  for 
MV  X  and  Y.  MVGE  Must  be  declared  logical 
unless  augment  interface  is  used. 


usage  —  if  ( MPGT  (X#  Y>>  ...  or  if  (X  .GT.  Y)  ... 

description  --  returns  logical  value  of  (X  .GT.  Y)  for 
MV  X  and  Y.  MVGT  Must  be  declared  logical 
unless  augment  interface  is  used. 


usage  —  CALL  MVGET  <X> 

description  --  converts  the  fixed-point  decimal  number 
(read  under  nal  format)  in  c(1)  ...  c(n)  to  a 
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multiple-precision  number  in  X.  Warnings 
are  given  for  invalid  intervals  and  when  the 
number  of  digits  in  the  input  exceeds  the 
precision  of  the  target. 


MVINIT  ****** 

usage  —  CALL  MVINIT  (I)  or  INITIALIZE  MV 

description  —  dectares  blank  common  (used  by  MV 
package)  and  calls  MVSET  to  initialize 
parameters.  lisa  dummy  integer  argument, 
the  augment  declaration  initialize  MV  causes 
a  CALL  to  MVINIT  to  be  generated. 


MVLN 


usage  —  CALL  MVLN  < X ,  Y)  or  Y  =  LN  (X)  or  Y  *  LOG 
(X) 

description  --  returns  Y  *  LN(X>*  for  MV  X  and  Y r  using 
MVLNS.  restriction  -  integer  part  of  LN(X) 
must  be  representable  as  a  single  precision 
integer.  time  is  o ( SORT ( T ) . M (T ) ) .  dimension 
of  R  in  calling  program  must  be  at  least 
6t*14. 

MVLT  ****** 

usage  —  if  ( MPLT  (x*  Y>>  ...  or  if  (x  .lt.  y)  ... 

description  --  returns  logical  value  of  (X  .LT.  Y)  for 
MV  X  and  Y.  MVLT  Must  be  declared  type 
logical  unless  augment  interface  used. 


MVMUL 


usage  —  CALL  MVMUL  (X*  Y *  Z)  or  Z  *  X*Y 

description  --  multiplies  X  and  Y*  returning  result  in 
Z*  for  MV  X*  Y  and  Z. 

MVNE  ****** 

usage  —  if  ( MPNE  (X*  Y>>  ...  or  if  <X  . NE.  Y>  ... 

description  --  returns  logical  value  of  (X  .NE.  Y)  for 
MV  X  and  Y.  MVNE  Must  be  declared  type 
logical  unless  augment  interface  used. 


MVNEG  ****** 
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MVPUT 


MVOVFL 


MVPI 


MVPWR 


MVROOT 


usage  —  CALL  MVNEG  <X*  Y>  or  Y  *  -X 
description  --  sets  Y  *  -X  for  MV  numbers  X  and  Y 
****** 

usage  —  CALL  MVPUT  (X*  W /  N*  LUN) 

description  --  converts  multiple-precision  X  to  FW.N 
format  and  outputs  the  result  to  the  FORTRAN 
logical  unit  specified  by  LUN. 


****** 

usage  —  CALL  MVOVFL  <X> 

description  --  called  on  multiple-precision  overflow* 
ie  when  the  exponent  of  MV  number  X  would 
exceed  M.  at  present  execution  is  terminated 
with  an  error  message  after  calling 

MPMAXR(X)*  but  it  would  be  possible  to 
return*  possibly  updating  a  counter  and 
terminating  execution  after  a  preset  number 
of  overflows.  Action  could  easily  be 
determined  by  a  flag  in  labelled  common. 

****** 

usage  —  CALL  MVPI  <X> 

description  —  sets  MV  X  =  pi  to  the  available 
precision,  uses  pi/4  =  4. arc  tan ( 1 / 5 ) 

arc  tan ( 1 / 239) . 

****** 

usage  —  CALL  MVPWR  (X*  N*  Y)  or  Y  *  X**N 

description  --  returns  Y  ■  X**N*  for  MV  X  and  Y* 
integer  N*  with  0**0  *  1.  R  must  be 

dimensioned  at  least  4T  +  10  in  calling  program 
(2t+6  is  enough  if  N  nonnegative). 


usage  —  CALL  MVR00T  (X*  N*  Y)  or  Y  s  root  (X*  N) 

description  --  returns  Y  *  X**(1/N)  for  integer  n* 

ABS(N)  ,l£.  max  (B*  64).  and  MV  numbers  X 
and  Y  *  using  Newtons  method  without 
divisions.  space  *  4T  +  10  (but  Y(1)  may  be 
R (3T*9) ) 
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MVSET  ****** 


MVS  IN 


MVSINH 


MVSQRT 


usage  —  CALL  MVSET  (lunit*  idecpl*  itmax2*  maxdr) 

description  --  sets  base  (B)  and  number  of  digits  (T) 
to  give  the  equivalent  of  at  least  idecpl 
decimal  digits.  idecpl  should  be  positive. 
itmax2  is  the  dimension  of  arrays  used  for  MV 
numbers*  so  an  error  occurs  if  the  computed  T 
exceeds  itmax2  -  2.  MVSET  also  sets  LUN  * 

lunit  (logical  unit  for  error  messages)*  MXR 
•  maxdr  (dimension  of  R  in  common*  *ge.  T+4)* 
and  M  *  (w-1)/4  (maximum  allowable  exponent)* 
where  w  is  the  largest  integer  of  the  form 
2**K-1  which  is  representable  in  the  machine* 
K  .le.  47  (on  most  machines  K  •  one  less  than 
number  of  bits  per  word*  but  this  is  not  true 
on  cdc  6000/7000  machines).  The  computed  B 
and  T  satisfy  the  conditions 

(T-1)*ln(B)/ln(10)  .ge.  idecpl  and 

8*B*B-1  «le.  w  •  approximately  minimal  T  and 
maximal  8  satisfying  these  conditions  are 
chosen.  parameters  lunit*  idecpl*  itmax2  and 
maxdr  are  integers.  beware  -  MVSET  will 
cause  an  integer  overflow  to  occur  ****** 
if  wordlength  is  less  than  48  bits.  if  this 
is  not  allowable*  change  the  determination  of 
w  (do  30  ...  to  30  w  *  wn)  or  set  R *  T*  M* 

LUN  and  MXR  without  calling  MVSET. 


****** 


usage  —  CALL  MVSIN  (X*  Y)  or  Y  *  SIN  (X) 

description  --  returns  Y  *  SIN(X)  for  MV  X  and  Y* 
dimension  of  R  in  calling  program  must  be  at 
least  5T+12 


usage  —  CALL  MVSINH  (X*  Y)  or  Y  *  SINM  (X) 

description  --  returns  Y  *  SINH(X)  for  MV  numbers  X  and 
Y*  X  not  too  large. 

****** 

usage  —  CALL  MVSQRT  (X*  Y)  or  Y  *  SORT  (X) 

description  —  returns  Y  *  SQRT(X)*  using  subroutine 
MVR00T  if  X  .GT.  0.  dimension  of  R  in 
calling  program  must  be  at  least  4T+10  (but 
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V<1*  mey  be  RC3Te9>>.  x  and  Y  are  MV 
numbers. 

- -WVST* . ****** . . . - _ _  _ _ 


usage  —  CALL  MVSTR  <x,  Y>  or  Y  *  x 

description  —  sets  Y  ■  x  for  MV  X  and  Y. 
MVSUB  ****** 


usage  —  CALL  MVSUB  (X,  Y  ,  Z  )  or  z  «  X  -  Y 

description  --  subtracts  Y  fro*  X.  forming  result  in  Z, 
for  MV  X*  Y  and  Z. 

MVTAN  ****** 


usage  —  CALL  MVTAN  (X* 
description  --  sets  Y  * 
MVTANH  ****** 


usage  —  CALL  MVTANH  <X,  Y)  or  Y  *  TANH  (X) 

description  —  returns  Y  *  TANH(X)  for  MV  numbers  X  and 
Y  , 

MVUNFL  ****** 


usage  —  CALL  MVUNFL  <X> 

description  ••  called  on  multiple-precision  underflow, 
ie  when  the  exponent  of  MV  number  X  would  be 
less  than  -M.  the  underflowing  number  is  set 
to  zero.  an  alternative  would  be  to  CALL 
MVMINR  (X)  and/or  return,  possibly  updating  a 
counter  and  terminating  execution  after  a 
Pr*s*t  number  of  underflows.  action  could 
easily  be  determined  by  a  flag  in  labelled 
common. 


2.  XOtfilXil.  RfiutiOtJ 

Basic  Arithmetic  -  MV  AC  0,  MVDIV,  MVMUL,  MVSUB 

Powers  and  Roots  -  MVPWR,  MVROOT,  MVSQRT 

Elementary  Functions  -  MVASIN,  MVATAN,  MVCOS,  MVCOSH,  MVEXP, 

MVLN,  MVSIN,  MVSINH,  MVTAN,  MVTANH 


V)  or  Y  »  TAN  <X> 
TAN(X)  for  MV  X  and  Y 
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Constants  -  MVP  I 


Input  and  Output  -  MVPUT#  MVGET 

Conversion  -  MVCOM*  MVCIM#  MVCHO#  MVCMI#  MVCWR#  MVCRM 

Comparison  -  MVCOMP#  MVEQ#  MVGE#  MVGT #  MVLE#  MVLT#  MVNE 

General  Utility  Routines  -  MVABS#  MVCLR  #  MVINIT#  MVNEG# 

MVS  TR 

AUGMENT  Interface  Routines  -  MVBASA#  MVBASB#  MVDGA# 

MVD  IGA #  MVOIGB#  MVEXPA#  HVEXPB# 

MVMEXB#  MVS  IGA#  MVSIGB 


MVSET 

MVD6B 

MVMEXA 
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Appendix  F. 

5A*Oic_EiOfl£i»_Sfiur£t.aod_£QmB£b_QulQui 


1  •  ££S8CiB.  tfi.£SBfiylfi.lllfi_£fiQStAOt.£ 


1.1  KmHIESlUL-SouCfifi 


n  THIS  IS  A  PROGRAM  TO  COMPUTE  e 

DATA  S UM <  1 )  ,  NFACT(1>,  STEP ( 1 ) , 

ERROR  <1 )  /20, 30, 40, 50/ 

VARINTERVAL  SUM,  NFACT,  STEP,  ERROR 

M  INITIALIZATION 
SUM  a  0 
fif ACT  ■  1 
STEP  »  1 
ERROR  a  1.0E-6 
I  *  0 

n  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 
CALL  C  TP  (1) 

»  LOOP  THROUGH  UNTIL  STEP  IS  LESS  THAN  OR  EQUAL  TO  ERROR 
REPEAT 

l  SUM  *  SUM  ♦  STEP 
I  a  I  ♦  1 

N  F  ACT  =  NFACT  *  FLOAT(I) 

STEP  »  1/NFACT  3~ 

UNTIL  (STEP  <■  ERROR) 

n  DISPLAY  THE  RESULTS 
WRITE(6,2) 

2  FORMAT  (1X,"e  IS  EQUAL  TO”) 

CALL  MVPUT  (SUM) 

WRI TE ( 6,1 )  I 

1  FORMAT  (1h4,T7, "COMPUTED  IN  ",I3,"  STEPS") 

H  PRESENT  THE  CPU  TIME  AND  PAGING  FOR  THIS  PROCEDURE 
CALL  CTP(O) 

STOP 

END 
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1.2  £fitI£*B.Qulfiul 


C  «■>«*  PROCESSED  BY  AUGMENT  VERSION  ,4J  **•«• 

C  -  TEMPORARY  STORAGE  LOCATIONS  - 

C  VARINTERVAL 

INTEGER  MVTMP( 104*1 > 

C  -  LOCAL  VARIABLES  — - 

INTEGER  I 

C  VARINTERVAL 

INTEGER  ERRORO  04 ) ,  NFACT(104>,  STEP<104),  SUNC104) 

C  -  GLOBAL  VARIABLES  - 

INTEGER  MV BASE#  MVDIS,  MVLUN,  MVM,  MVMAXT,  MVMXR, 

*  MVR<1040>,  MVT,  HVTEMPC104) 

C  -  SUPPORTING  PACKAGE  FUNCTIONS  - 

LOGICAL  MVLE 

C  -  COMMON  BLOCKS 

COMMON  //  MVDIS,  MVB AS E ,  MVT ,  MVM,  MVLUN,  MVMXR ,  MVR 
COMMON  /MVTEMP/  MVMAXT ,  MVTEMP 
C  *■*■»  TRANSLATED  PROGRAM  **««* 

C  *«««*  UNREC 0GN1Z  ED  STATEMENT  «•««« 

DATA  S  UM ( 1 )  ,  NFACTd),  STEPd), 

*  ERRORd)  720,30,40,50/ 

C  -  BEGIN  INITIALIZATION  - 

CALL  MV  IN  I T  (MVTMP (1,1), 1) 


CALL  MV IN IT  (ERROR, 0) 
CALL  MV  INI T  (NF ACT,0) 
CALL  MVINIT  <STEP,0) 
CALL  MVINIT  <SUM,0> 


C  -  END  INITIALIZATION 

C 

C  MVMAXT  *  50 

MVMAXT  a  50 
C 

C  MVLUN  ■  6 

MVLUN  »  6 
C 

C  MVBASE  *  10 

MVBASE  ■  10 
C 

C  MVM  a  1000 

MVM  a  1000 

c 

C  MVT  a  o 

MVT  a  0 

C 

C  MVMXR  a  1040 


MVMXR  *  1040 

c 

C  MVDIS  *  2 

MVDIS  *  2 
C 

C  MVTEMP  <1 >  a  0 

MVTEMP (1 )  «  0 


c 

c 

c 

-c 

c 

c 

c 

€ 

C 

C 

C 

e 

c 

c 

C  3001 
23001 
C 
C 

C 

C 

c 

c 

c  «»« 


c 

c 

c 


c 

C  3002 

23002 
C 

C  3003 

23003 
C 

C99 

999 

2 


SUM  *  0 

CALL  MV  Cl M  (0,$UM) 

NFACT  •  1 

CALL  MVCIM  <1, NFACT) 

STEP  *  1 

CALL  MVCIM  (INSTEP) 

ERROR  »  1.0E-6 
CALL  MVCRM  ( 1 . OE-6 / ERROR > 

I  =  0 

I  =  0 

CALL  C TP  (1) 

CALL  C TP  (1) 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

SUM  *  SUM  ♦  STEP 
CALL  MV  AO  0  < SUM, STEP, SUM > 

I  »  I  ♦  1 

I  ■  I  ♦  1 

NFACT  *  NFACT  *  FLOAT  CD 
a  MIXED  MODE  OPERANOS  ACCEPTED  »««» 
CALL  MVCRM  (FLOAT  < I ),MVTMP(1 *1 ) ) 

CALL  MVMUL  (NFACT ,MVTMP( 1,1), NFACT) 

STEP  «  1/NFACT 

«  MIXED  MODE  OPERANDS  ACCEPTED  aim 
CALL  MVCIM  ( 1 , MVTMP (1,1)) 

CALL  MVDIV  (MVTMP(1,1>, NFACT, STEP) 

IF(. NOT. (STEP  .LE.  ERROR))  GOTO  23001 
IF  (.NOT.MVLE  (STEP, ERROR))  GOTO  23001 

CONTINUE 

CONTINUE 

WRITE  (6,2) 

WRITE (6,2) 

FORMAT  ( 1 X ,1 3He  IS  EQUAL  TO) 
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CALL  MVPUT  (SUM) 

CALL  MVPUT  (SUM) 

WR I TE ( 6* 1 )  I 
WRI TE (6#1 )  I 

FORMAT  (1h+,T7,12HC0MPUTED  IN  #I3#6H  STEPS) 

CALL  CTP(O) 

CALL  CTP(O) 

STOP 

STOP 

END 
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?•  Uftll.tCtOSleC.QCfiSCiB 

2.1  ttHUItSML-Smttt 


»  PROGRAM  TO  COMPUTE  HEAT  TRANSFER  IN  A  TEN  FOOT  IRON  BAR 
«  HEAT  SOURCE  IS  500  DEGREES#  AMBIENT  TEMPERATURE  IS  70 

#  DEGREES.  OUTPUT  IS  TEMPERATURE  OF  BAR  AT  ONE  FOOT 

#  INTERVALS.  INPUT  IS  TIME  AFTER  CONTACT  WITH  HEAT  SOURCE 

#  IN  MINUTES. 

I 

»  INTEGER  VARIABLES 

INTEGER  FEET#  KLENGTH#  ITEMP#  TIME 

a 

#  VARINTERVAL  VARIABLES 


H  CONSTANT  VALUED  VARIABLES 

DATA  ERROR! 1 >  #  PI < 1 )#  PI SQR< 1 ) #  L<1>#  RO<1>#  C<1># 

K  ( 1 )  /7*56/ 

DATA  TO (1 >  #  Till)  /2*56/ 

U  VARIABLE  VALUED  VARIABLES 

DATA  COUNT  ( 1  )  #  THET  A  <1  )  #  SUM(1>#  XSUM(1)#  X  C 1 )  / 5*56/ 
DATA  T ( 1 )  / 56/ 

U  VARINTERVAL  DECLARATION 

VARINTERVAL  PI#  PIS«R#  L#  RO#  C#  K#  TO#  T1#  COUNT# 
THETA#  SUM#  XSUM#  X#  T#  ERROR 
M 

a 

a  BEGIN  PROGRAM 


a  INITIALIZATIONS 

CALL  CTP  < 1 )  a  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  *  3.1415927 
PISQR  *  PI  *  PI 
L  *  10  a  LENGTH  OF  BAR 
K  «  30 

RO  »  7.1  *  62.3 
C  *  .12 

*  TO  »  70  a  AMBIENT  TEMPERATURE 

T1  *  500  a  TEMPERATURE  OF  HEAT  SOURCE 

ERROR  *  1 

DO  I  »  1#  10  a  SET  ERROR  *  1.E-56 
*  C  ERROR  *  ERR0R/100000  3 


a  GET  THE  TIME#  IN  MINUTES 
WRITE  <6#1> 

1  FORMAT  <"  ENTER  THE  TIME  IN  MINUTES") 
CALL  MVGET  (THETA) 

a 
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#  CALCULATE  TEMPERATURE  FOR  EACH  FOOT 

n 

KLENGTH  *  L 
00  FEET  *  1/  KLENGTH 
C 

*  COMPUTE  AN  INITIAL  VALUE  FOR  T 
T  »  <K*THETA)/(L**2  *  RO  *  C) 

#  COMPUTE  DISTANCE  TO  HEAT  SOURCE 
X  a  FEET/L 

U  LOOP  FOR  THE  COMPUTATION  OF  SUM 
SUM  *  0 

XSUM  *  0  n  INITIAL  LOOP  VALUES 
COUNT  =  0 
TIME  *  0 

REPEAT 

C  COUNT  a  COUNT  ♦  1 
SUM  a  SUM  +  XSUM 
ITEMP  a  COUNT 

XSUM  =  ( (-1>**ITEMP/C0UNT)  * 

(EXP (  - (COUNT **2)  *  (PISQR)  *  T)  * 

SIN  ( C  OUNT  *PI *  X  )  ) 

IF  (ABS (X  SUM)  <  ERROR  ) 

TIME  *  TIME  +  1 
ELSE 

TIME  *  0 
3 

UNTIL  (TIME  «  2) 

#  COMPUTE  THE  TEMPERATURE  FOR  THIS  DISTANCE 
T  *  TO  MT1  •  TO)  *  (X  +  (2.0/PI)  *  SUM) 

H  OUTPUT  THE  FINAL  ANSWER  FOR  THIS  FOOT 
WRITE  (6/4  )  FEET 
CALL  MVPUT  (T> 

4  FORMAT  (IX/  "THE  ANSWER  FOR  "/I2/  ”  FEET  IS 
WRITE  (6/5) 

5  FORMAT  ("  The  number  of  steps  is:  ") 

CALL  MVPUT  (COUNT) 

3 

CALL  CTP(O) 

STOP 

END 
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2.2  iorJtcio-Qutoui 


c  *****  PROCESSED  BY  AUGMENT  VERSION  #4J  ***** 

C  -  INITIALI ZE/EPASE  INDEXES  - - 

INTEGER  0011 

C  -  TEMPORARY  STORAGE  LOCATIONS  - 

INTEGER  OOITMP(I) 

C  VARINTERVAL 

INTEGER  MVTMPC116#3) 

C  -  LOCAL  VARIABLES  - 

INTEGER  FEET#  I#  I  TEMP#  KLENGTH#  TIME 
C  VARINTERVAL 

INTEGER  C  Cl  1 6 ) #  C0UNTC116)#  ERR0RC116)#  KC116)# 

L Cl  1 6 )  # 

*  PI (1 16) #  PISGR  (1 16) #  R0C116)#  SUMC116)#  TC116)# 

*  TO  d  1  6)  #  T1C116)#  THE  T  AC1 1 6 ) #  XC116)#  XSUMd  16) 

C  -  GLOBAL  VARIABLES  - — 

INTEGER  MV8ASE#  MVDIS#  MVLUN#  MVM#  MVMAXT  #  MVMXR  # 

*  MVRC1 1 60) #  MVT#  MVTEMPC 116) 

C  -  SUPPORTING  PACKAGE  FUNCTIONS  - 

L06ICAL  MVLT 

C  -  COMMON  BLOCKS  - 

COMMON  //  MVDIS#  MVBASE#  MVT #  MVM#  MVLUN#  MVMXR#  MVR 
COMMON  /MVTEMP/  MVMAXT#  MVTEMP 
C  *****  TRANSLATED  PROGRAM  ***** 


C  *****  UNRECOGNIZED  STATEMENT  ***** 

DATA  ERRORd)#  PId)#  PISQR(I)#  LCD#  ROd)#  C(1)# 

*  K  d )  /7*56/ 

C  *****  UNRECOGNIZED  STATEMENT  ***** 

DATA  TOd)#  T 1  (  1  )  /2  *56/ 

C  *****  UNRECOGNIZED  STATEMENT  ***** 

DATA  C0UNTC1)#  THETAd)#  SUMC1)#  XSUMd)#  X  d )  /5*56/ 
C  *****  UNRECOGNIZED  STATEMENT  ***** 

DATA  TCI)  /  56/ 

C  -  BEGIN  INITIALIZATION  - 

MVTEMP  Cl )  =  0 
MVR ( 1 )  *  0 

DO  30000  0011  *  1#  3 


30000  CALL 

MV  IN  I T 

CMVTMPC1 #001 

CALL 

MV  INI T 

<C#0) 

CALL 

MVIN1T 

(COUNT  #0) 

CALL 

MV  IN  I T 

<ERR0R#0> 

CALL 

MV  INI T 

(K#0) 

CALL 

MV  I NIT 

(L#0) 

CALL 

MVINIT 

CPI#0) 

CALL 

MV  INI T 

(PISQR#0> 

CALL 

MVINIT 

(R0#0 ) 

CALL 

MVINIT 

C  SUM#0) 

CALL 

MVINIT 

CT#0) 

CALL 

MVINIT 

(T0#0) 

CALL 

MVINIT 

(T1 #0) 

CALL 

MVINIT 

CTHETA#0) 

CALL 

MVINIT 

(X#0) 
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c 

c 

c 


CALL  MV  INI T  <XSUM,0) 

-  END  INITIALIZATION 

MVMAXT  a  56 
MVMAXT  =  56 
C 

C  MVLUN  =  6 

MVLUN  *  6 
C 

C  MVBASE  *  10 

MVBASE  a  10 
C 

C  MVM  *  1003 

MVM  *  1003 
C 

C  MVT  a  0 

MVT  a.  0 

C 

C  MVMXR  a  1160 

MVMXR  a  1160 
C 

C  MVOIS  =  2 

MVDIS  =  2 
C 

C  MVTEMP <1  )  a  0 

MVTEMP  < 1 )  a  0 
C 

C  MVR ( 1  )  a  0 

MVR(1)  a  0 
C 

C  CALL  C  TP ( 1 ) 

CALL  C  TP (  1  ) 

C 

C  PI  a  3.1415927 

CALL  MV  CRM  ( 3. 1 4 1  5 92 7, P I) 

C 

C  PISQR  *  pi  *  pi 

CALL  MVMUL  <  PI  ,  P I ,  P I  SQ  R> 

C 

C  L  a  10 

CALL  MVCIM  (10, L) 

C 

C  X  a  30 

CALL  MVCIM  <30, K) 

C 

C  RO  a  7.1  *  62.3 

CALL  MV  CRM  ( 7. 1  * 62 . 3 , RO ) 

C 

C  C  a  .12 

CALL  MVCRM  (.12,0 
C 

C  TO  a  70 

CALL  MVCIM  (70, TO) 
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c 

C  T1  I  500 

CALL  MVCIM  ( 500 /T 1 ) 

C 

C  ERROR  a  1 

CALL  MVCIM  (1/ERROR) 

C 

C  DO  23001  I  a  1,  10 

DO  23001  I  a  i,  10 
C 

C  ERROR  a  ERROR/IOOOOO 

CALL  MVDIVI  (ERROR/IOOOOO/ERROR) 

3001  CONTINUE 
3001  CONTINUE 

C  3002  CONTINUE 
23002  CONTINUE 
C 

C  WRITE  (6/1) 

WRITE  (6/1) 

1  FORMAT  (26H  ENTER  THE  TIME  IN  MINUTES) 

C 

C  CALL  MVGET  (THETA) 

CALL  MVGET  (THETA) 

C 

C  KLENGTH  a  L 

CALL  MV  CM  I  (L/O0ITMPO  )) 
KLENGTH=OOITMP(1) 

C 

C  DO  23003  FEET  a  KLENGTH 

DO  23003  FEET  a  1/  KLENGTH 
C 

C  T  a  (K*THETA)/(L**2  *  RO  *  C) 

CALL  MVMUL  (K/THETA/MVTMPO  /  I  )) 

CALL  MVPWR  (L/2/MVTMP(  1/2)) 

CALL  MVMUL  ( MVTMP ( 1 / 2 ) / R 0/ MVT MP ( 1 / 2 )  ) 
CALL  MVMUL  ( MVTMP ( 1 / 2 ) /C /MVTMP( 1 ,2 ) ) 

CALL  MVDIV  (MVTMP(1/1)/MVTMP(1/2)/T) 

C 

C  X  a  FEET/L 

C  »««s  MIXED  MODE  OPERANDS  ACCEPTED  :««» 

CALL  MVCIM  (  FEET/MVTMPd /I  )  ) 

CALL  MVDIV  (MVTMP(1/1)/L/X) 

C 

C  SUM  a  0 

CALL  MVCIM  (0/SUM) 

C 

C  XSUM  a  0 

CALL  MVCIM  ( 0/X SUM ) 

C 

C  COUNT  a  0 

CALL  MVCIM  (O/COUNT) 
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mrnmm 


n  o  ro  n  n 


- .  i  tii  d  ms»M  Tift  test  mM*  <am  --  ■  »■  <,*  -....k^^^^*-;AV.^_Vi>i»>»«-=*- 


-  <H»ii,.,.j 


C 

C  TIME  a  0 

TIME  a  0 
C 

C  CONTINUE 

CONTINUE 

3005  CONTINUE 
3005  CONTINUE 


COUNT  a  COUNT  ♦  1 
CALL  MVAOOI  (COUNT, 1 /COUNT) 

C 

C  SUM  a  SUM  +  X  SUM 

,  CALL  MVAOO  ( SUM , X S UM,S UM > 

C 

C  ITEMP  =  COUNT 

CALL  MV  CM  I  (COUNT, 00ITMP(1>> 
ITEMPaOOITMP (1 ) 

C 

C  XSUM  a  ( (-1 ) **ITEMP/COUNT>  * 

C  (EXP(  -(C0UNT**2)  *  (PISQR)  *  T)  * 

C  SIN(COUNT*P I*X) ) 

C  =====  MIXED  MODE  OPERANDS  ACCEPTED  ===== 


CALL  MVCIM  (  (-1 )**ITEMP,MVTMP(1 ,1 ) ) 

CALL  MVDIV  (MVTMP(1,1>, COUNT, MVTMP(1,1)> 

CALL  MVPWR  ( C0UNT,2,MVTMP(1 ,2)) 

CALL  MVMUL  ( MVTMP (1,2), PISQR, MV TMP(1 ,2)) 

CALL  MVMUL  (MVTMP (1 ,2) ,T ,MVTMP(1 ,2) ) 

CALL  MVNEG  ( MVTMP ( 1 ,2) , MVTMP (1 ,2 ) ) 

CALL  MVEXP  ( MVTMP (1 ,2)/MVTMP(1,2)) 

CALL  MVMUL  ( COUNT, P I ,MVT MP ( 1 ,3) ) 

CALL  MVMUL  ( MVTMP ( 1 ,3) ,X , MVTMP ( 1 , 3 )  ) 

CALL  MV  SIN  ( MVTMP ( 1 ,3 ) *  MVTMP ( 1 , 3) ) 

CALL  MVMUL  (MVTMP(1,2),MVTMP(1,3),MVTMP(1,3>> 
CALL  MVMUL  ( MVTMP ( 1 , 1 ), MVTMP (1 ,3 ), X SUM) 

C 

C  IF(.NOT.(ABS(XSUM)  .LT.  ERROR  ))  GOTO  23008 

CALL  MVABS  ( XSUM, MVTMP ( 1 , 1 ) ) 

IF  (.NOT.MVLT  ( MVTMP (1 , 1 ), E R ROR ) )  GOTO  23008 
C 

C  TIME  =  TIME  +  1 

TIME  =  TIME  ♦  1 
C 

C  GOTO  23009 

GOTO  23009 
C 

C  3008  CONTINUE 
23008  CONTINUE 
C 

C  TIME  a  0 

TIME  =  0 
C 


Appendix  F  -  87 


r 


C3009 

CONTINUE 

23009 

CONTINUE 

£ 

C3006 

If (.NOT. (TIME  .EQ. 

2) 

)  SOTO  23005 

23006 

If (.NOT. (TIME  .EQ. 

2) 

)  GOTO  23005 

£ 

C  300? 

CONTINUE 

23007 

f 

CONTINUE 

l 

C 

T  =  TO  ♦  (T1  -  TO) 

* 

(X  ♦  (2.0/PI)  * 

C  **  =  = 

=  MIXEO  MODE  OPERANDS 

ACCEPTED 

CALL  MV  SUB  (T1,T0,MVTM 

P( 1 ,1  )  ) 

c 

c 

c 

c 

4 

c 

c 

5 
c 


SUM) 


CALL  MVCRM  ( 2. 0,MVTMP < 1 , 2 ) ) 

CALL  MV 0 1 V  (MVTMP(1,2),PI,MVTMP(1,2)) 

CALL  MVMUL  (MVTMP(1,2),SUM,MVTMP(1,2)) 

CALL  MV  ADO  ( X,MVTMP <  1  / 2 ) ,MVT MP ( 1 , 2 ) ) 

CALL  MVMUL  (MVTMP(1,1),MVTMP(1,2),MVTMP(I,2)) 

CALL  MV  ADD  < TO,MVTMP <1 #2 ) ,T) 

WRITE  (6,4)  FEET 
WRITE  (6,4)  FEET 

CALL  MVPUT  (T) 

CALL  MVPUT  <T) 

FORMAT  (IX,  15MTHE  ANSWER  FOR  ,12,  9H  FEET  IS  ) 

WRITE  (6,5) 

WRITE  (6,5) 

FORMAT  (25H  The  number  of  steps  is:  ) 


C 

CALL  MVPUT 
CALL  MVPUT 

c 

C  3003 

CONTINUE 

23003 

CONTINUE 

C 

C  3004 

CONTINUE 

23004 

C 

CONTINUE 

C 

CALL  CTP(O) 
CALL  CTP(O) 

c 

c 

STOP 

STOP 

END 
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The  variable  precision  interval  arithmetic  package  contains  three 
distinct  levels  of  subroutines.  The  first  level  is  called  by  the 
user  program.  This  first  level  of  routines  is  distinguished  by 
the  prefix  MV.  The  first  level  addition  routine#  for  example#  is 
called  MV  ADD.  This  level  is  responsible  for  controlling  the 
precision  of  the  computation.  Its  duties  include: 


1)  making  adjustments  to  the  precision  of  the  arguments 

so  that  when  they  are  passed  to  the  next  level 
they  are  of  the  same  precision. 

2)  determining  and  passing  the  precision  in  which  the 

operation  is  to  be  performed  to  the  underlying 
routines.  This  is  done  via  an  external  variable  in 
unlabelled  common. 


3)  the  passing  of  the  argument  values  to  the  next  level 
in  a  form  acceptable  to  the  underlying  routines 
(the  format  of  the  multiple  precision  value  is 
somewhat  different  at  this  level  than  below). 

A)  examining  the  target  of  the  computation  and 

assigning  the  value  of  the  result  to  the  target 
with  appropriate  adjustments  to  the  precision  of 
the  result. 


The  second  level#  with  name  prefix  MX#  is  responsible  for  the 
interval  arithmetic  aspects  of  the  computation.  Its  duties 
include: 


1)  case  analysis  (when  necessary)  to  determine  which 
endpoints  of  the  arguments  are  to  be  used  in  the 
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computation 


2)  the  passing  of  the  appropriate  endpoints  to  the  next 
ievet  with  a  proper  indication  of  the  rounding 
strategy  to  be  employed  (care  is  taken  that  no 
overwriting  of  values  occurs  so  that  computations 
like  A  *  A  ♦  A  are  acceptable). 


I  I _ 

(first  level)  I  MVPWR  I  I 

I _ I _ V _ 

I  I  I 

I  I  MVSTR  I 

I  I _ I 


V 


I  I 

(second  level)  I  MXPWR  I 

I _ I 

I 

_ V _ 

I  I 

(third  level)  I  MPPUR  I 

I _ I 

_ I  I  I _ 

I  I  I 

_ V _  V _  I _ 

I  I  III 

I  MPREC  I  I  MPMUL  I  V 

I _ I  I _ I 

_ I  I _ 

I  I 

_ V _  V 

I  I  ... 

I  MPMUL2  I 

I _ _ I 

I 

_ V _ 

I  I 

I  MPNZR  I 
I _ I 


FIGURE  39 

Tree  Figure  of  the  multilevel  interpretive 
structure  of  the  power  function 
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The  third  level#  with  name  prefix  MP#  is  responsible  for  the 
actual  performance  of  the  computation  employing  the  rounding 
strategy  received  as  a  parameter  from  the  second  level.  For 
example#  the  subroutine  invocation  history  of  X  *  Y**N  is 
graphically  represented  is  Figure  39. 

Within  the  package  there  are  two  slightly  different  multiple 
precision  interval  "word"  formats  used.  The  third  level  operates 
on  one  endpoint  of  the  second  level  interval.  The  format  used  at 
the  third  tevel  is  the  same  as  either  the  left  or  right  portions 
of  the  second  level  interval  format. 

The  first  level  interval  format#  Figure  40#  is  used  only  at  the 
first  level.  The  multiple  precision  word  is  represented  as  an 
integer  array  with  the  first  element  carrying  three  pieces  of 
information.  The  first  digit  is  used  to  represent  the  sign  —  +1 
signifies  positive#  -1  negative#  0  zero.  The  three  digits 
following  the  sign  is  the  precision  of  the  word.  The  next  digit 
determines  whether  or  not  the  word  is  a  temporary  variable.  1  is 
used  to  indicate  a  temporary;  two  is  used  to  indicate  a 
non-temporary.  For  zero  the  exponent  and  digits  are  undefined. 
The  second  element  carries  the  exponent  of  the  multiple  precision 
word.  The  exponent  is  always  a  base  10  integer  and  signifies 
(base) **expon.  The  next  N  elements  contain  the  N  digits  of  the  N 
digit  precision  number.  The  digits  can  be  of  any  base  (with  some 
restriction  on  size)  but  the  package  was  implemented  with  base  10 
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as  a  matter  of  convenience.  Using  base  100  weutd  result  in  almost 
a  SOX  savings  in  the  amount  of  space  used  by  each  variable 
precision  interval  variable/  but  would  reouire  some  slight 
modif ications  to  the  input/output  routines. 


I  I  I  I  I  I  I  I  till 
Isdddtl  expon  I  T1  I  T2  I...I  TN  I  s  I  expon  I  T1  I... I  TN  I 
I _ I _ I _ 1 _ I _ I _ I _ I _ I _ I _ I _ | 

FIGURE  40 

Multiple  precision  interval  number  format, 
for  first  level.  sdddt  =  sign(0,-1  or  +1) 
concatenated  with  the  precision  concatenated 
with  a  temporary  variable  indicator  (1  for 
temporary/  0  for  non-t emporary)  expon  * 
exponent  (to  base  b)  Ti  =  digit  (in  base  b) 
s  »  sign  (0/  -1  or  +1).  Note  that  expon  and 
Ti  are  undefined  if  sign  *  0. 


The  second  level  interval  format/  Figure  41,  is  used  at  the 
second  level.  The  multiple  precision  interval  word  at  this  level 
is  identical  to  that  of  the  first  level  except  for  the  deletion 
of  the  precision  information  and  the  temporary  variable 
indi cator. 


I  I  »  I  I  I  I  I  fill 
I  s  I  expon  I  TI  I  T2  I...I  TN  I  s  I  expon  I  TI  I...I  TN  I 
I _ I _ I _ I _ I _ I _ I _ I _ I _ I _ I _ I 

FIGURE  41 

Multiple  precision  interval  number  format, 
for  second  level.  s  *  sign(0/-1  or  +1).  Note 
that  the  exponent  and  digits  are  undefined  if 
sign  «  0  expon  *  exponent  (to  base  b)  Ti  » 
digit  (in  base  b) 
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The  MV  routines  can  be  divided  into  two  classes  --  one  argument 
and  two  argument  routines.  Within  each  class  all  MV  routines  are 
virtually  identical.  The  partitioning  of  the  two  argument 
routines  is  given  in  Figure  42. 


determine  which  argument  has  the  larger  precision 


copy  the  value  of  the  argument  with  the  smaller 
precision  into  a  temporary  location  using  the 
precision  of  the  argument  with  the  larger  precision 


set  the  precision  for  the  operation,  via  unlabelled 
common,  to  the  precision  of  the  argument  with  the 
larger  precision 


convert  the  word  format  to  that  used  by  the  lower 
level  routines 


pass  the  arguments  to  the  tower  level  routines 


convert  the  word  format  back  to  that  used  by  the 
MV  routines 


if  the  target  is  a  temporary  variable 

then  copy  the  result  of  the  operation  into  the 

target  and  set  its  precision  to  the  same  as  the 
larger  precision  of  the  two  operands 
else  convert  the  result  to  the  same  precision  as 
the  target.  If  the  precision  of  the  target  is 
higher  then  copy  the  value  and  fill  in  with 
zeros;  else  make  adjustments  to  the  target 
consistent  with  interval  arithmetic 


FIGURE  42 

Portioning  of  a  two  argument  MV  routine 
The  one  argument  routines  are  essentially  the  same;  however. 
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there  is  clearly  no  need  for  the  precision  manipulations 
necessary  for  the  two  argument  routines.  The  MV  routines 

available  are  described  in  Appendix  E. 

3.  E£ea4caiifia.fii.ifae.Ui&j:.£Eafl£Ao 

3. 1  BAIiaS-aod-auSiJtfill-fi  sscoiiais 

The  translation  sequence  from  structured  variable  precision 
interval  FORTRAN  to  standard  FORTRAN  is  done  in  two  passes.  On 
the  first  pass  the  program  is  converted  from  RATFOR  format  to 
standard  FORTRAN  format.  It  is  necessary  that  the  program  be 
written  in  RATFOR  for  the  conversion.  A  summary  of  RATFOR  is 

given  in  Appendix  A  with  sample  programs  in  Appendix  F. 

On  the  second  pass  an  AUGMENT  description  deck*  described  in 

Appendix  B*  is  attached  to  the  user  program  and  processed  through 
the  AUGMENT  precompiler.  AUGMENT  converts  the  variable  precision 
interval  variables  and  the  operations  upon  them  to  standard 
FORTRAN.  This  also  is  discussed  in  Appendix  B. 

3. 2  B£9ui£C«£oli.is£-ibe.Uss.fll.^J£lible.Srfi£isii>o. 

iQl££X4i.Yi£iabl££ 

Several  requirements  must  be  met  by  the  user  for  the  use  of 

variable  precision  interval  variables. 

1)  variable  precision  interval  variables  be  declared 
VARINTERVAL. 
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2)  the  string  "tCaBEGIN"  must  be  pieced  In  column  1 

after  the  declarative  statement  but  before  the 
first  executable  statement. 

3)  there  must  be  FORTRAN  DATA  statements  setting  the 

value  of  the  first  element  of  each  variable 
precision  Interval  variable  to  the  precision  that 
It  Is  to  contain. 

A)  the  program  must  be  written  In  RATFOR  which  Is 
described  in  Appendix  A. 


Suppose  the  user  were  to  have  three  variable  precision  interval 
variables  X/  Y#  and  Z  with  precisions  10#  20  and  30  respect ively. 
The  program  in  Figure  43  would  be  a  valid  example  of  a  program 
containing  VARINTERVAL  variables.  Figure  44  through  Figure  46  are 
examples  of  Invalid  VARINTERVAL  programs. 


INTEGER  KT 

DATA  X#  Y #  Z  /10#20#30/ 
VARINTERVAL  X#  Y #  Z 
XOSEGIN 

#  VALID  RATFOR  COMMENT 
CALL  MVGET  <X> 

REAO  <5  #1 )  KT 
1  FORMAT  (110) 

If  (X  >*  10.7) 

CY  «  X  t  18.3 
2  *  KT+Y  D 
ELSE 

CZ  a  X  *  18.3  1 
CALL  MVPUT  <Z> 

STOP 

END 


FIGURE  43 

Example  of  a  valid  VARINTERVAL  program 
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I  VARINTERVAL  X#  Y 

I  VARINTERVAL  2 

I  INTEGER  XT 

I  DATA  X(1),Y(1), 

I  2(1)  /1 0*20*30/ 

I  U  VALIO  RATFOR  COMMENT 
I  CALL  MVGET  (X) 

I  READ  (5*1)  KT 

I  1  FORMAT  (110) 

I  IF  (X  >*  10.7) 

I  CY  «  X  /  18.3 

I  Z  ■  KT  +  Y  3 

I  ELSE 

I  E2  *  X  *  18.3  3 

1  CALL  MVPUT  (2) 

I  STOP 

I  END 


FIGURE  44 

Example  of  a  invalid  VARINTERVAL  program 
(missing  XC*BEGIN) 


INTEGER  KT 
VARINTERVAL  X*Y*Z 
XC*BEG!N 

A  VALID  RATFOR  COMMENT 
CALL  MVGET  (X) 

READ  (5*1)  KT 
1  FORMAT  (110) 

IF  (X  >*  10.7) 

CY  «  X  /  18.3 
Z  s  KT+Y  3 
ELSE 

CZ  *  X  *  18.3  3 
CALL  MVPUT  (Z) 

STOP 

END 


FIGURE  45 

Example  of  a  Invalid  VARINTERVAL  program 
(no  DATA  statement  setting  precision) 
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INTEGER  KOUNT 

DATA  X(1),Y(1>,2(1)/10, 20,30/ 
VARINTERVAL  X,Y,Z 
C  THIS  IS  NOT  A  RATFOR  COMMENT 
IF  (X.GE.10.7)  GO  TO  10 
X  «  X  *  18.3 
KOUNT  a  KOUNT  -  1 
GO  TO  20 

10  X  *  X  /  18.3 

KOUNT  «  KOUNT  ♦  1 
20  CONTINUE 

STOP 
END 


FIGURE  46 

Example  of  invalid  VARINTERVAL  program 
(not  written  in  RATFOR) 


3.  3  loeuiiiofl-Md.Qulouiiiofl-fll-Yiriibic-Eific  iaiao 
loierxii-Yiriabies 


There  is  very  little  for  the  user  to  be  concerned  with  during  the 
translation  of  a  structured  variable  precision  Interval  FORTRAN 
program  to  standard  FORTRAN.  RATFOR  and  AUGMENT  take  care  of 
almost  all  of  the  details.  The  major  exception  is  that  i/o 
statements  are  Ignored  during  the  translation  process.  It  is 
left  up  to  the  user  to  make  the  necessary  modifications  to  the 
program  before  translation  so  that  i/o  is  done  properly. 


For  the  input  of  variable  precision  interval  values  the 
subroutine  MVGET  is  supplied.  Its  usage  is 


CALL  MVGET  (variable  precision  interval  variable) 
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which  will  read  a  variable  precision  interval  value  from  the 
FORTRAN  logical  unit  specified  by  LUN.  Each  endpoint  must  be  on 
a  separate  line  with  the  left  endpoint  appearing  first. 
Generalized  floating  point  format  is  accepted  by  the  routine. 
The  input  is  checked  to  insure  that  it  forms  a  proper  interval.  A 
warning  is  output  if  the  number  of  digits  in  the  input  is  greater 
than  the  precision  of  the  target.  Truncation  of  the  input  to  the 
precision  of  the  target  occurs  in  this  case. 

For  the  outputting  of  variable  precision  interval  values  the 
subroutine  MVPUT  is  supplied.  Its  usage  is 

CALL  MVPUT  (variable  precision  interval  variable) 

which  will  output  the  specified  value  to  the  FORTRAN  logical  unit 
specified  by  LUN.  Output  is  one  value  to  a  line. 

3.  A  £flOl*£iio£*_0O.¥*£iibi£-££S£ili£I)-lQlC£V*l.i;£aa£ 

There  are#  naturally#  constraints.  These  are: 

1)  The  precision  of  a  variable  precision  interval 

variable  must  be  less  than  1000  but  more  than  2. 

2)  The  maximum  exponent  range  is  2000. 

3)  Unlabelled  common  must  not  be  used  by  the  user  or  it 

will  disturb  the  lower  levels  of  the  support 
structure. 

A)  Avoid  using  any  names  beginning  with  MV#  MX  or  MP. 
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Additional  information  concerning  these  constraints  may  be  found 
in  Appendix  C  and  Appendix  E. 


3. 5  ii3ifl9.1b£.¥iliQl-£0IDa*0d-fi0-Sulli£* 


The  command  for  the  invocation  of  the  virtual  compiler  for  the 
translation  of  structured  variable  precision  FORTRAN  is  "varint" 
or  "vtM. 


The  syntax  is: 


vt  path  -maxp  N  <-cont rol.args> 


The  arguments  are  as  follows: 
path 

is  the  pathname  of  a  FORTRAN  source  segment;  the 
fortran  suffix  need  not  be  given. 

-maxp  N 

is  a  mandatory  control  argument  which  indicates  to 
the  virtual  compiler  that  the  maximum  precision 
that  will  be  encountered  in  the  program  wilt  be  <* 
N,  ?<N<1 000. 

Control  arguments: 

-no.compile*  -nc 

does  not  produce  an  object  code  segment  from  the 
FORTRAN  output. 

*  -no.translated.source*  -nt 

checks  the  VARINTERVAL  program  for  correctness  but 
does  not  produce  the  FORTRAN  output. 

«  -augment. list/  als 

produce  an  AUGMENT  listing  of  the  FORTRAN  output. 

Any  valid  FORTRAN  compiler  option. 
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3.6  Pcfl£ii£ai-£oBfflfiols 

During  the  course  of  testing  and  development  there  were 
encountered  several  instances  of  the  use  of  VARINTERVAL  variables 
in  which  the  way  in  which  the  algorithm  was  configured  seriously 
affected  the  results  that  were  produced.  This  is  not  unusual  in 
itself;  such  effects  can  be  noted  in  all  computer  implementations 
of  algorithms.  There  were/  however/  several  effects  peculiar  to 
VARINTERVAL  usage.  The  user  must  have  a  firm  understanding  of 
these  effects  produced  by  the  configuration  of  his  algorithm. 
With  such  an  understanding  the  user  can  ensure  that  the  algorithm 
is  implemented  in  an  efficient  manner  and  produces  the  proper 
results.  Without  such  an  understanding  he  may  produce  a  highly 
inefficient  FORTRAN  program  and  unknowingly  encounter  deleterious 
side  effects.  The  effects  associated  with  VARINTERVAL  usage  fall 
into  three  categories: 

1)  effects  associated  with  the  use  of  standard  FORTRAN 

variables  and  constants 

2)  effects  associated  with  attempts  at  precision 

control 

3)  effects  associated  with  the  repetitious  evaluation 

of  invariant  expressions 

The  following  discussion  describes  in  detail  what  problems  are 
encountered  with  these  effects  and  how  the  user  may  avoid  them. 

The  usage  of  standard  FORTRAN  variables  can  create  serious 
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problems  for  the  unwary.  These  problems  can  be  summarized  as: 

1)  induction  of  false  significance 

2)  loss  of  significance 

3)  repetitious  conversions  to  VARINTERVAL 

false  significance  can  be  induced  into  the  results  by  the  mixing 
of  standard  FORTRAN  variables  with  VARINTERVAL  variables.  The 
problem  occurs  when  a  VARINTERVAL  value  of  low  significance  is 
assigned  to  a  standard  FORTRAN  variable  and  then  reassigned  to  a 
VARINTERVAL  variable.  When  a  VARINTERVAL  value  is  assigned  to  a 
standard  FORTRAN  variable  the  midpoint  of  the  VARINTERVAL  value 
is  used.  Standard  FORTRAN  values  are  taken  as  exact  results  when 
they  are  assigned  to  VARINTERVAL  variables.  Figure  47  clearly 
illustrates  the  problem  that  can  arise. 


I  REAL  Y  I 

I  VARINTERVAL  X,  Z  I 

I  I 

I  value  input  is  [-150*  +1503  I 

I  CALL  MVGET  <X>  I 

I  I 

t  #  value  assigned  to  Y  is  0.0  I 

I  Y  *  x  I 

I  I 

I  »  Z  is  given  the  value  C0/03  I 

I  Z  s  Y  I 

FIGURE  47 

Example  of  induction  of  false  significance 

A'  loss  of  significance  may  also  appear  when  standard  FORTRAN  and 
VARINTERVAL  variables  are  mixed.  This  loss  of  significance  takes 
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place  in  the  sane  manner  as  the  induction  of  false  significance* 
The  problem  crops  up  when  a  VARINTERVAL  value  of  high 
significance  is  assigned  to  a  standard  FORTRAN  variable  which 
has*  at  most*  8  to  20  decimal  digits  of  precision.  Figure  48 
demonstrates  the  problem  that  might  occur. 

T  REALTY  7 

I  VARINTERVAL  X*  Z  1 

I  I 

I  U  value  input  is  C1/3r1/33  to  50  decimal  I 

I  H  digits  of  precision  I 

I  CALL  MVGET  (X)  I 

I  I 

I  U  value  assigned  is  .333333333  I 

I  Y  *  X  1 

I  I 

I  n  value  assigned  is  C. 33333333,. 3333333333  I 

I  Z  *  Y  I 

I . 1 

FIGURE  48 

Example  of  loss  of  significance 

Loss  of  significance  may  also  be  induced  through  the  use  of 
constants.  This  may  occur  in  two  ways.  The  first  is  through  the 
use  of  inappropriately  insignificant  constants.  For  examples  the 
use  of  the  constant  pi  to  18  digits  of  accuracy  in  a  section  of 
code  which  is  to  be  performed  with  100  digits  of  precision  is  a 
waste  of  resources.  The  second  manner  in  which  loss  of 
significance  may  occur  Is  through  the  conversions  which  naturally 
occur  with  real  constants.  Suppose  the  program  contains  the 
statement 

X  ■  .3456 

where  X  is  VARINTERVAL  with  30  digits  of  precision.  The  value  of 
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X  after  the  assignment  Is  not  .3456  but 

0 . 34 56 000 030 04 0 7 409 66 7968 7 50000 0e+ 000 

The  reason  for  the  Inexact  conversion  is  that  .3456  is  not 

exactly  represent  able  in  binary/  to  which  it  is  converted  at 

compile  time.  This  inexact  binary  value  is  converted  to 

VARINTERVAL/  resulting  in  an  overall  inexact  conversion.  The 

user  can  avoid  the  problem  by  avoiding  real  constants.  If  the 

program  contained/  instead/  the  two  statements 

X  =  3456 
X  =  X/10000 

the  conversion  will  be  exact. 

The  problems  associated  with  the  use  of  constants  can  be  avoided 
with  the  use  of  care.  The  user  must  be  especially  alert  when 
converting  an  existent  program  to  VAR1NTERVAL.  It  is  quite  easy 
to  overlook  constants  that  may  cause  problems.  The  consequences 
are  grave;  these  validity  of  the  program's  results  may  be 
seriously  affected.  Furthermore/  these  problems  are  not  the  type 
which  are  detected  by  the  VARINTERVAL  data  type.  The  results 
produced  by  the  program  can  appear  entirely  satisfactory  even 
when  seriously  in  error.  The  third  problem  that  the  user  might 

*  encounter  when  mixing  VARINTERVAL  and  standard  FORTRAN  variables 
is  one  of  efficiency.  In  some  situations  this  mixing  will  have  no 

♦  effect  on  the  significance  of  the  result/  for  example/  the  use  of 
a  00  index  in  the  body  of  a  loop.  There  may/  however/  be  some 
objectionable  expense  incurred  through  multiple  conversions  of 
the  same  value  to  the  same  data  type.  The  program  segment  in 
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Figure  49  exhibits  this  behavior 


INTEGER  I 

VARINTERVAL  X,  Y  ,  l 

U  This  toop  performs  three  conversions  of  I 
It  to  VARINTERVAL 

00  I  *  1,  100 

C  X  =  I 
r  *  I 
x  =  i  t 


FIGURE  49 


Example  of  repetitious  conversions 


The  user  must  take  care  when  attempting  to  exert  control  over  the 
precision  of  the  operations.  Consider,  for  example,  the  statement 

T  *  X  *  Y  *  Z 

where  each  variable  is  VARINTERVAL  with  50  digits  of  precision* 
The  user  may  decide  that  the  precision  necessary  for  the 
derivation  of  an  acceptable  result  is  20  digits  of  precision. 
There  are  two  cons ide ra t i ons  the  user  must  make  when  lowering  the 
precision  of  a  section  of  code.  The  first  of  these  is  that  the 
precision  is  propagated  by  intermediate  results.  Thus*  if  T,  x 
and  Z  have  a  precision  of  20  while  Y  has  a  precision  of  50,  the 
entire  calculation  will  be  performed  at  precision  50.  The  user 
must  be  careful  that  such  unwanted  precision  propagation  does  not 
occur.  The  other  consideration  pertains  to  carelessness.  The 
user  must  guard  against  the  lowering  of  a  variables  precision 
when  that  variables  is  used  elsewhere  in  the  program,  thus 
unintentionally  affecting  the  precision  of  other  results. 
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Another  aspect  of  precision  control  that  Is  easily  overlooked  is 
the  adjustment  of  loop  termination  values.  Suppose  a  program 
contains  the  loop  shown  in  Figure  50*  where  all  variables  are 
VARINTERVAL  with  a  precision  of  500  decimal  digits.  In  a  normal 
FORTRAN  program  ERROR  would  typically  have  a  value  of  no  less 
than  1.0e-15.  This  is  entirely  inadequate  for  the  current 
situation;  the  result  would  still  be  significant  to  only  15  or 
20  decimal  digits.  A  value  of  1.0e-400  would  be  a  much  more 
appropriate  value. 


I  REPEAT  I 
I  t  COUNT  *  COUNT  +1  I 
I  XSUM  *  EXP (COUNT* Y  >  I 
I  SUM  =  SUM  ♦  XSUM  3  I 
I  UNTIL  (XSUM  <  ERROR)  I 
I _ 1 

FIGURE  50 

Example  where  inadequate  loop  termination  value  may  exist 

The  third  category  of  effects  are  those  associated  with  the 
repetitious  evaluation  of  invariant  expressions.  When  building 
expressions  the  user  must  remember  that  any  operation  involving 
VARINTERVAL  operands  is  non-trivial*  especially  if  performed  with 
high  precision.  Thus*  the  compensation  for  the  effort  of  removing 
only  one  or  two  repetitious  operations  from  an  expression  is 
usually  justifiable.  Figure  51  and  Figure  52  give  two  examples  of 
configurations  which  contain  such  invariant  expressions  and  a 
reconf igurat ion  which  is  more  efficient. 
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I  PISQR  *  PI  **  2 
I  REPEAT 

I  C  COUNT  *  COUNT  ♦  1 
I  X SUM  *  EXPCCOUNT  *  Y  *  PISQR) 
I  SUM  =  SUM  ♦  X SUM  1 
I  UNTIL  (XSUM  <  ERROR) 

I 


FIGURE  51 

Example  of  invariant  expression  problem  and  solution 


KURD  *  (PI**2)  /  COUNT  ♦  Y  *  (PI**2) 


PISQR  *  P 1**2 

KURD  *  PISQR  /  COUNT  ♦  Y  *  PISQR 
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2.718281  82845904 52 35 36028 747 135266249775724709369995 
95749669676277240766303535475945713821785251664274 
2746639193200305992181 7413596629043572900334295260 
59563073813232862794349076323382988075319525101901 
1  5  7383418  79  307  021  540891499  3488416  7509244  7614606680 
822648001 6847741 1 8537423454424371 07539077744992069 
551  702  761838606  261331 3845830007  52044  93382656029760 
673711 32007093287091274437470472306969772093101416 
92336319025515108657463772111 252389784425056953696 
77078544996996794686445490598793163688923009879312 
77361 7821 54249992295763514822082698951936680331825 
28869398496465105820939239829488793320362509443117 
30123819706841614039701983767932068328237646480429 
53118023287825098194558153017567173613320698112509 
96181881593041690351598888519345807273866738589422 
87922849989208680582574927961 048419844436346324496 
84875602336248270419786232090021609902353043699418 
491463140934  31 7381 4 364 05462 531 520961  83690888707016 
76839642437814059271456354906130310720851038375051 
01 15747704171898610687396965521267154688957035035(4) 
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A 


Appendix  I 

Uaec.5ouc£C-^ficsiQDS-Ql-tbe-fi-CofflDutatiQQ>AiflQciib* 


J  ^ecsioa-l-rr-Sioaie-ErttisiaD-acai 

« 


#  THIS  IS  A  PROGRAM  TO  COMPUTE  e 

REAL  SUM/  NFACT/  STEP/  ERROR 

u  initialization 

SUM  =  0.0 
NFACT  *  1.0 
STEP  =  1.0 
ERROR  »  1.0E-8 
I  a  0 

A  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 
CALL  C  TP  (1) 

U  LOOP  THROUGH  UNTIL  STEP  IS  LESS  THAN  OR  EQUAL  TO  ERROR 
REPEAT 

C  SUM  =  SUM  ♦  STEP 
1*1*1 

NFACT  a  NFACT  *  FLOAT (  I  ) 

STEP  =  1 /NFACT  3 
UNTIL  (STEP  <»  ERROR) 

U  DISPLAY  THE  RESULTS 
WRITEC6/2)  SUM 

2  FORMAT  (IX, "e  IS  EQUAL  TO  "/FlO.8) 

WRITE<6/1)  I 

1  FORMAT  < 1h*/T7/"C0MPUTED  IN  "zl3/"  STEPS") 

A  PRESENT  THE  CPU  TIME  AND  PAGING  FOR  THIS  PROCEDURE 
CALL  CTP(O) 

STOP 

END 
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tt  THIS  IS  A  PROGRAM  TO  COMPUTE  e 

DOUBLE  PRECISION  SUM,  NFACT,  STEP#  ERROR 

tt  INITIALIZATION 

SUM  =  O.GDO 
NF  ACT  =  I.ODO 
STEP  =  1 .ODO 
ERROR  =  1 . 0  D- 1 8 
I  =  0 

tt  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 
CALL  C  TP  <1> 

tt  LOOP  THROUGH  UNTIL  STEP  IS  LESS  THAN  OR  EQUAL  TO  ERROR 
REPEAT 

C  SUM  =  SUM  ♦  STEP 
1  =  1+1 

NFACT  »  NFACT  *  DBLE (FLOAT ( I ) ) 

STEP  =  1/NFACT  3 
UNTIL  (STEP  <=  ERROR) 

tt  DISPLAY  THE  RESULTS 
WRI TE (6*2)  SUM 

2  FORMAT  (IX, "e  IS  EQUAL  TO  ”,F20.18) 

WRITE(6,1)  I 

1  FORMAT  (1h+,T7, "COMPUTED  IN  ",I3,"  STEPS”) 

tt  PRESENT  THE  CPU  TIME  AND  PAGING  FOR  THIS  PROCEDURE 
CALL  CTP(O) 

STOP 

END 
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tt  THIS  IS  A  PROGRAM  TO  COMPUTE  e 

INTERVAL  SUM*  NF  ACT*  STEP*  ERROR 

((  INITIALIZATION 
SUM  =  0.0 
NFACT  =  1.0 
STEP  =  1.0 
ERROR  =  1.0E-8 
1  =  0 

U  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 
CALL  CTP  (1) 

tt  LOOP  THROUGH  UNTIL  STEP  IS  LESS  THAN  OR  EQUAL  TO  ERROR 
REPEAT 

C  SUM  =  SUM  +  STEP 
1=1  +  1 

NFACT  =  NFACT  *  FLO AT (  I) 

STEP  =  1/NFACT  3 
UNTIL  (STEP  <=  ERROR) 

tt  display  the  results 
WRITE(6*2)  SUM 

2  FORMAT  OX*Me  IS  EQUAL  TO  "  **' CM *F  1 0 . 8*”*"* F  10 . 8*“ 3"  > 

WRITE(6*1)  I 

1  FORMAT  (1h+*T7*"C0MPUTED  IN  "*I3*"  STEPS") 

It  PRESENT  THE  CPU  TIME  AND  PAGING  FOR  THIS  PROCEDURE 
CALL  CTP<0) 

STOP 

END 
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tt  THIS  IS  A  PROGRAM  TO  COMPUTE  e 

INTERVAL  SUM*  NF ACT*  STEP*  ERROR 

U  INITIALIZATION 
SUM  =  0 
NFACT  =  1 
STEP  =  1 
ERROR  =  1 

DO  1=1*10#  SET  ERROR  =  1.0e-50 
C  ERROR  =  ERR0R/100000 
] 

I  =  0 

#  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

CALL  CTP  <1> 

#  LOOP  THROUGH  UNTIL  STEP  IS  LESS  THAN  OR  EQUAL  TO  ERROR 

REPEAT 

C  SUM  =  SUM  +  STEP 
1  =  1+1 
NFACT  =  NFACT  *  I 
STEP  =  1 /NFACT  3 
UNTIL  (STEP  <=  ERROR) 

U  DISPLAY  THE  RESULTS 
WR ITE  <6*2 ) 

2  FORMAT  < 1 X*"e  IS  EQUAL  TO") 

CALL  INTPRV  <"  ”*1*3*128*SUM) 
yRITE(6*1)  I 

1  FORMAT  <1h+*T7*" COMPUTED  IN  "*I3*"  STEPS") 

U  PRESENT  THE  CPU  TIME  AND  PAGIN6  FOR  THIS  PROCEDURE 
CALL  CTP(O) 

STOP 

END 
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tt  THIS  IS  A  PROGRAM  TO  COMPUTE  e 

DATA  S  UM  ( 1  )  ,  NFACT(I),  STEP(1),  ERROR(I)  / 4*56/ 
VAR1NTERVAL  SUM,  NFACT,  STEP,  ERROR 

tt  INITIALIZATION 
SUM  =  0 
NFACT  =  1 
STEP  =  1 
ERROR  =  1 

00  I  =  1,  10  tt  SET  ERROR  =  1.0e-50 
C  ERROR  =  ERR0R/100000 
3 

I  =  0 

tt  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 
CALL  CTP  (1) 

tt  LOOP  THROUGH  UNTIL  STEP  IS  LESS  THAN  OR  EQUAL  TO  ERROR 
REPEAT 

C  SUM  =  SUM  +  STEP 
1  =  1+1 
NFACT  *  NFACT  *  I 
STEP  =  1/NFACT  3 
UNTIL  (STEP  <=  ERROR) 

tt  DISPLAY  THE  RESULTS 
WRITE(6,2) 

2  FORMAT  <  1  X , " e  IS  EQUAL  TO") 

CALL  MVPUT  (SUM) 

WRITE (6,1)  I 

1  FORMAT  (1h+,T7, "COMPUTED  IN  ",I3,”  STEPS") 

tt  PRESENT  THE  CPU  TIME  AND  PAGING  FOR  THIS  PROCEDURE 
CALL  CTP(O) 

STOP 

END 
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tt  THIS  IS  A  PROGRAM  WHICH  OUTPUTS  THE  TEMPERATURE  OF  A  PIECE  OF 
#  PIPE  AT  ONE  FOOT  INTERVALS.  AMBIENT  TEMPERATURE  IS  70 
tt  degrees;  heat  SOURCE  TEMPERATURE  IS  500  DEGREES.  INPUT  IS 
it  THE  AMOUNT  OF  TIME  AFTER  WHICH  END  OF  THE  PIPE  HAS  BEEN 
tt  PLACED  AGAINST  THE  HEAT  SOURCE 

REAL  PI#  K#  RO#  C#  TO#  Tl#  TOUT# 

THETA#  T#  X#  SUM#  XSUM#  ERROR 

INTEGER  FEET#  COUNT#  TIME#  L 


tt 

It 

tt  BEGIN  PROGRAM 

tt  INITIALIZATIONS 

CALL  CTP(1)  tt  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  =  3.141 5927 

L  »  10 

K  =  30.0 

RO  =  7.1  *  62.3 

C  =  .12 

TO  =  70.00 

Tl  =  500.0 

ERROR  =  1 .0  E-8 


tt  INPUT  THE  AMOUNT  OF  TIME 
WRITE  (6# 1  ) 

1  FORMAT  <"  ENTER  THE  TIME  IN  MINUTES") 

READ  ( 5  #  2 )  THETA 

2  FORMAT  (V) 

tt  LOOP  ONCE  THROUGH  THE  COMPUTATION  FOR  EACH  FOOT 
DO  FEET  =  1#  L 
C 

it  INITIALIZATIONS  FOR  INNER  LOOP 

X  *  FLOAT  (FEET)/FLOAT(L)  tt  COMPUTE  DISTANCE  TO  HEAT  SOURCE 

tt  COMPUTE  A  STARTING  VALUE  FOR  T 
T  =  (K*THETA)/ ( FLOAT (L) **  2  *  R 0  *  C ) 
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SUM  =  0.0 
X  SUM  =  0.0 
COUNT  »  0 
TIME  =  0 

tt  LOOP  TO  COMPUTE  THE  INTERMEDIATE  VALUES  FOR  THE 
tt  TEMPERATURE  AT  THIS  DISTANCE 

REPEAT 

C 

COUNT  =  COUNT  ♦  1 

XSUM  =  ( (-1 )**COUNT/FLOAT(COUNT) )  * 

( EX P (  -(FL0AT(C0UNT)**2)  *  (PI**2>  *  T )  * 

SIN  (FLOAT (COUNT)*PI*X)) 

ft  CHECK  FOR  INTERMEDIATE  VALUE  LESS  THAN  ERROR 
IF  CABS(XSUM)  <  ERROR) 

C 

tt  SINCE  SIN  CAN  GO  CLOSE  TO  0*  LET  ERROR  VALUE 
It  BE  EXCEDED  TWICE 
TIME  =  TIME  +  1 
3 

ELSE  TIME  =  0 
SUM  =  SUM  ♦  XSUM 

3  tt  END  OF  LOOP  TO  COMPUTE  INTERMEDIATE  VALUES 

UNTIL  (TIME  ==  2) 


ft  COMPUTE  AND  OUTPUT  THE  TEMPERATURE  FOR  THIS  DISTANCE 

TOUT  =  TO  +  ( T1  -  TO)  *  (X  +  (2.0/PI)  *  SUM) 

IF  (FEET  ”  1 ) 

C  WRITE  (6,4)  FEET,  TOUT 

4  FORMAT  (IX,  "THE  ANSWER  FOR  ",I2,  "  FOOT  IS  ",F20.6> 
3 

ELSE 

[  WRITE  (6,5)  FEET,  TOUT 

5  FORMAT  (IX,  "THE  ANSWER  FOR  ",I2,  "  FEET  IS  ",F20.6) 
3 

3  ft  END  OF  MAIN  ITERATION  LOOP 

It  OUTPUT  The  FINAL  CPU  AND  PAGING  VALUES 
CALL  CTP(O) 

STOP 

END 
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tt  THIS  IS  A  PROGRAM  WHICH  OUTPUTS  THE  TEMPERATURE  OF  A  PIECE  OF 
A  PIPE  AT  ONE  FOOT  INTERVALS.  AMBIENT  TEMPERATURE  IS  70 
tt  DEGREES;  HEAT  SOURCE  TEMPERATURE  IS  500  DEGREES.  INPUT  IS 
#  THE  AMOUNT  OF  TIME  AFTER  WHICH  END  OF  THE  PIPE  HAS  BEEN 
tt  PLACED  AGAINST  THE  HEAT  SOURCE 

DOUBLE  PRECISION  PI,  K,  RO,  C,  TO,  T1,  TOUT, 

THETA,  T,  X,  SUM,  XSUM,  ERROR 

INTEGER  FEET,  COUNT,  TIME,  L. 

tt 

tt 

tt  BEGIN  PROGRAM 


tt  INITIALIZATIONS 

CALL  C  TP ( 1 )  tt  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  =  3.1415927D0 
L  *  10 
K  =  30. ODO 
RO  =  7.1  DO  *  62.3D0 
C  =  .1200 
TO  =  70. OOD  0 
T 1  =  500. ODO 
E  RROR  =  1 .OD-8 


tt  INPUT  THE  AMOUNT  OF  TIME 
WRITE  (6,1) 

1  FORMAT  <"  ENTER  THE  TIME  IN  MINUTES") 
READ  (5,2)  THETA 

2  FORMAT  (V) 


tt  LOOP  ONCE  THROUGH  THE  COMPUTATION  FOR  EACH  FOOT 
DO  FEET  =  1,  L 
C 

tt  INITIALIZATIONS  FOR  INNER  LOOP 

X  =  DBLE (FLOAT (FEET ) )/DBLE  (FLOAT (L) )  tt  COMPUTE  DISTANCE  TO  HEAT  SOURCI 

tt  COMPUTE  A  STARTING  VALUE  FOR  T 
T  =  (K*THETA)/(DBLE(FL0AT(L))**2  *  RO  *  C > 

SUM  *  O.ODO 
XSUM  =  O.ODO 
COUNT  =  0 


Appendix  J  -  115 


T  IME 


0 


tt  LOOP  TO  COMPUTE  THE  INTERMEDIATE  VALUES  FOR  THE 
tt  TEMPERATURE  AT  THIS  DISTANCE 

R  EPEAT 
C 

COUNT  =  COUNT  ♦  1 

X  SUM  =  ((-1)**COUNT/D8LE(FLOAT(COUNT)))  * 

( DE X P (  -(D8L£(FL0AT(C0UNT))**2>  *  (Pl**2>  *  T)  * 
OSIN  (D8LE(FL0AT (COUNT) ) *  P  I  *  X  ) ) 

tt  CHECK  FOR  INTERMEDIATE  VALUE  LESS  THAN  ERROR 
IF  (DABS (XSUM)  <  ERROR) 

C 

tt  SINCE  SIN  CAN  60  CLOSE  TO  0/  LET  ERROR  VALUE 
tt  8E  EXCEDED  TWICE 
TIME  =  TIME  ♦  1 

ELSE  TIME  =  0 

SUM  *  SUM  ♦  XSUM 

D  tt  END  OF  LOOP  TO  COMPUTE  INTERMEDIATE  VALUES 

UNTIL  (TIME  *=  2) 


tt  COMPUTE  AND  OUTPUT  THE  TEMPERATURE  FOR  THIS  DISTANCE 

TOUT  =  TO  +  ( T 1  -  TO)  *  (X  +  (2.0D0/PI)  *  SUM) 

IF  (FEET  ==  1) 

C  WRITE  (6/4)  FEET,  TOUT 

4  FORMAT  (IX/  "THE  ANSWER  FOR  "/I2/  "  FOOT  IS  "/D16.1D 

J 

ELSE 

C  WRITE  (6/5)  FEET/  TOUT 

5  FORMAT  (IX/  "THE  ANSWER  FOR  "/I2/  "  FEET  IS  "/D16.11) 

] 

D  tt  END  OF  MAIN  ITERATION  LOOP 

»  OUTPUT  THE  FINAL  CPU  AND  PAGING  VALUES 
CALL  CTP(O) 

STOP 

END 
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n  THIS  IS  A  PROGRAM  WHICH  OUTPUTS  THE  TEMPERATURE  OF  A  PIECE  OF 
n  PIPE  AT  ONE  FOOT  INTERVALS.  AMBIENT  TEMPERATURE  IS  70 

n  degrees;  heat  source  temperature  is  soo  degrees,  input  is 

#  THE  AMOUNT  OF  TIME  AFTER  WHICH  END  OF  THE  PIPE  HAS  SEEN 
»  PLACED  AGAINST  THE  HEAT  SOURCE 

INTERVAL  PI#  K/  RO/  C/  TO/  T1/  TOUT/  TEMPL /  TEMPC T / 

THETA/  T/  X/  SUM/  XSUM/  ERROR 

INTEGER  FEET/  COUNT/  TIME/  L 


# 

n 

n  BEGIN  PROGRAM 


U  INITIALIZATIONS 

CALL  CTP(1)  n  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  «  3.1415927 
L  »  10 
TEMPL  *  L 
K  *  30.0 
RO  *  7.1  *  62.3 
C  *  .12 
TO  =  70.00 
T1  *  500.0 
ERROR  *  1.0E-8 


*  INPUT  THE  AMOUNT  OF  TIME 
WRITE  <6/1 ) 

1  FORMAT  <"  ENTER  THE  TIME  IN  MINUTES") 
READ  (5/2)  THETA 

2  FORMAT  <V> 


n  LOOP  ONCE  THROUGH  THE  COMPUTATION  FOR  EACH  FOOT 
DO  FEET  ■  1/  L 
C 

n  INITIALIZATIONS  FOR  INNER  LOOP 

X  *  FLOAT(FEET)/TEMPL  A  COMPUTE  DISTANCE  TO  HEAT  SOURCE 

#  COMPUTE  A  STARTING  VALUE  FOR  T 
T  *  (K*THETA)/<TEMPL**2  *  RO  *  C) 

SUM  *  0.0 
XSUM  =  0.0 
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COUNT  ■  0 
TIME  »  0 


ft  LOOP  TO  COMPUTE  THE  INTERNED IATE  VALUES  FOP  THE 
#  TEMPERATURE  AT  THIS  DISTANCE 

REPEAT 

C 

COUNT  ■  COUNT  ♦  1 
TEMPCT  ■  COUNT 

XSUM  «  ((-1 )**COUNT/TEMPCT)  * 

(  E  XP  (  - <T  EMPCT  **? )  *  (PI**?)  *  T)  * 

SIN  (TEMPCT  *  PI  *  X)) 

M  CHECK  FOR  INTERMEDIATE  VALUE  LESS  THAN  ERROR 
IF  (ABS(XSUM)  <  ERROR) 

C 

n  SINCE  SIN  CAN  60  CLOSE  TO  0#  LET  ERROR  VALUE 
ft  BE  EXCEDED  TWICE 
TIME  *  TIME  ♦  1 
3 

ELSE  TIME  =  0 
SUM  «  SUM  ♦  XSUM 

3  ft  END  OF  LOOP  TO  COMPUTE  INTERMEDIATE  VALUES 

UNTIL  (TIME  «*  ?) 


U  COMPUTE  AND  OUTPUT  THE  TEMPERATURE  FOR  THIS  DISTANCE 

TOUT  »  TO  +  (T1  -  TO)  *  (X  ♦  (2.0/PI)  *  SUM) 

IF  (FEET  »*  1) 

t  WRITE  (6,4)  FEET,  TOUT 

4  FORMAT  (IX,  "THE  ANSWER  FOR  **,12,  "  FOOT  IS  ", 

" C",F11 .6,",",F11 .  6 ," 3 " ) 

3 

ELSE 

i  WRITE  (6,5)  FEET,  TOUT 

5  FORMAT  (IX,  "THE  ANSWER  FOR  ",I2,  "  FEET  IS  ", 

"C", FI 1.6,",", FI 1.6, "3") 

3 


3  n  END  OF  MAIN  ITERATION  LOOP 

ft  OUTPUT  THE  FINAL  CPU  AND  PAGING  VALUES 
CALL  CTP(O) 

STOP 

END 
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#  THIS  IS  A  PROGRAM  WHICH  OUTPUTS  THE  TEMPERATURE  OF  A  PIECE  OF 
H  PIPE  AT  ONE  FOOT  INTERVALS.  AMBIENT  TEMPERATURE  IS  70 
a  degrees;  HEAT  source  temperature  IS  500  DEGREES.  INPUT  IS 
n  THE  AMOUNT  OF  TIME  AFTER  WHICH  END  OF  THE  PIPE  HAS  BEEN 
M  PLACED  AGAINST  THE  HEAT  SOURCE 

INTERVAL  PI/  K/  RO/  C/  TO/  T1/  TOUT/  TEMPL/  TEMPCT/ 

THETA/  T/  X/  SUM/  XSUM/  ERROR 

INTEGER  FEET/  COUNT/  TIME/  L 

# 

a 

U  BEGIN  PROGRAM 


*  INITIALIZATIONS 

CALL  CTP( 1 )  n  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  *  3 1 A 1 5927  n  MAKE  CONVERSION  EXACT 

PI  *  PI/10000000 
L  ■  1 0 
TEMPL  *  L 
K  *  30 

RO  *  71  *  623  n  RO  «  7.1  *  62.3 

RO  «  RO/ 1 00 

C  «  12  a  C  *  .12 

C  «  C/100 
TO  *  70 
T1  ■  5  00 

ERROR  *  1  #  ERROR  =  1.0E-8 

ERROR  *  ERROR/1 0000 
ERROR  *  ERR0R/10000 


a  INPUT  THE  AMOUNT  OF  TIME 
WRITE  <6/1  ) 

1  FORMAT  <"  ENTER  THE  TIME  IN  MINUTES") 
CALL  INTRDV  (THETA/  EOF) 


M  LOOP  ONCE  THROUGH  THE  COMPUTATION  FOR  EACH  FOOT 
DO  FEET  ■  1/  L 
C 

n  INITIALIZATIONS  FOR  INNER  LOOP 

X  «  FLOAT<FEET)/TE MPL  H  COMPUTE  DISTANCE  TO  HEAT  SOURCE 
a  COMPUTE  A  STARTING  VALUE  FOR  T 
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T  •  (K*THETA) /(T£MPL**2  *  RO  *  C> 

SUN  »  0.0 
XSUM  *  0.0 
COUMT  *  0 
TINE  *  0 

n  LOOP  TO  COMPUTE  THE  INTERMEDIATE  VALUES  FOR  THE 
ft  TEMPERATURE  AT  THIS  DISTANCE 

REPEAT 
C 

COUNT  «  COUNT  ♦  1 
TEMPCT  «  COUNT 

XSUM  »  ((-1WC0UNT/TEMPCT)  * 

<EXP<  -(TEMPCT**2)  *  (PI**2)  *  T)  * 

SIN  (TEMPCT  *  PI  *  X)) 

ft  CHECK  FOR  INTERMEDIATE  VALUE  LESS  THAN  ERROR 
IF  (ABS(XSUM)  <  ERROR) 

C 

#  SINCE  SIN  CAN  60  CLOSE  TO  0,  LET  ERROR  VALUE 
ff  BE  EXCEDED  TWICE 
TIME  *  TIME  ♦  1 
3 

ELSE  TIME  =  0 
SUM  =  SUM  ♦  XSUM 

3  ft  END  OF  LOOP  TO  COMPUTE  INTERMEDIATE  VALUES 

UNTIL  (TIME  =  a  2) 


ft  COMPUTE  AND  OUTPUT  THE  TEMPERATURE  FOR  THIS  DISTANCE 


TOUT  »  TO  ♦  (T 1  - 
IF  (FEET  aa  1) 

C  WRITE  (6,4) 

4  FORMAT  (IX# 
CALL  INTPRV 

3 

ELSE 

r  WRITE  (6/5) 

5  FORMAT  (IX/ 
CALL  INTPRV 

3 


TO)  *  (X  ♦  (2.0/PI)  *  SUM) 

FEET 

"THE  ANSWER  FOR  "/I2/  ~  FOOT  IS 
("  "/1/3/128/TOUT) 


FEET 

"THE  ANSWER  FOR  "/I2/  "  FEET  IS 
("  "/1/3/128/TOUT) 


") 


") 


3  ft  END  OF  MAIN  ITERATION  LOOP 


ff  OUTPUT  THE  FINAL  CPU  AND  PAGING  VALUES 
CALL  CTP(O) 

STOP 

END 
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M  THIS  IS  A  PROGRAM  WHICH  OUTPUTS  THE  TEMPERATURE  OF  A  PIECE  OF 

*  PIPE  AT  ONE  FOOT  INTERVALS.  AMBIENT  TEMPERATURE  IS  70 

«  DEGREES;  HEAT  SOURCE  TEMPERATURE  IS  500  DEGREES.  INPUT  IS 
U  THE  AMOUNT  OF  TIME  AFTER  WHICH  END  OF  THE  PIPE  HAS  BEEN 

*  PLACED  AGAINST  THE  HEAT  SOURCE 

U  INTEGER  VARIABLES 
INTEGER  FEET/  COUNT/  TIME/  L 


n  MULTIPLE  PRECISION  INTERVAL  VARIABLES 

DATA  P I < 1 ) /  K  ( 1  )  /  R0(1)/  C<1)z  T0<1)/  Till)/  TOUT(I)/ 

TEMPL  <1  )/  TEMPCT(I)/  THETA ( 1 )/  T(1)/  X(1>/  SUM(1)/ 
X SUM ( 1 ) /  ERROR(I)  715*56/ 

VARINTERVAL  PI/  Kz  RO/  C/  TO/  T1/  TOUT/  TEMPL/  TENPCTz 

THETA/  T/  X/  SUM/  XSUM/  ERROR 


*C*BEGIN 

» 

n 

n  BEGIN  PROGRAM 


U  INITIALIZATIONS 

CALL  CTP(1)  #  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  »  31415927  U  MAKE  CONVERSION  EXACT 

PI  *  PI/10000000 
L  ■  10 
TEMPL  »  L 
K  a  30 

RO  *  71  *  623  #  RO  *  7.1  *  62.3 

RO  a  RO/100 

C  «  12 

C  a  C/100 

TO  a  70 

T1  a  500 

ERROR  a  1 

ERROR  ■  ERROR/1 0000 
ERROR  ■  ERROR/10000 


#  INPUT  THE  AMOUNT  OF  TIME 
WRITE  <6/ 1 ) 


Appendix  J 


121 


1  FORMAT  <"  ENTER  THE  TIME  IN  MINUTES”) 
CALL  MV6ET  (THETA) 

2  FORMAT  (V) 


P  LOOP  ONCE  THROUGH  THE  COMPUTATION  FOR  EACH  FOOT 
00  FEET  *  1,  L 
C 

P  INITIALIZATIONS  FOR  INNER  LOOP 

X  *  FLOAT(FEE  T) / TE  MPL  P  COMPUTE  DISTANCE  TO  HEAT  SOURCE 

tt  COMPUTE  A  STARTING  VALUE  FOR  T 
T  *  (K*THETA)/(T£MPL**2  *  RO  *  C) 

SUM  *  0.0 
X  SUM  a  0.0 
COUNT  «  0 
TIME  =  0 

P  LOOP  TO  COMPUTE  THE  INTERMEDIATE  VALUES  FOR  THE 
P  TEMPERATURE  AT  THIS  DISTANCE 

REPEAT 

C 

COUNT  =  COUNT  +  1 
TEMPCT  »  COUNT 

X  SUM  =  <<-1 )**COUNT/TEMPCT)  * 

<EXP<  • (TEMPCT  **2 )  *  ( P I **2 )  *  T )  * 

SIN  (TEMPCT  *  PI  *  X)) 

H  CHECK  FOR  INTERMEDIATE  VALUE  LESS  THAN  ERROR 
IF  (ABS(XSUM)  <  ERROR) 

C 

P  SINCE  SIN  CAN  GO  CLOSE  TO  0,  LET  ERROR  VALUE 
P  BE  EXCEDED  TWICE 
TIME  »  TIME  ♦  1 
3 

ELSE  TIME  »  0 
SUM  «  SUM  ♦  XSUM 

3  P  END  OF  LOOP  TO  COMPUTE  INTERMEDIATE  VALUES 

UNTIL  (TIME  »»  2) 


P  COMPUTE  AND  OUTPUT  THE  TEMPERATURE  FOR  THIS  DISTANCE 

TOUT  «  TO  ♦  ( T 1  -  TO)  *  (X  ♦  (2.0/PI)  *  SUM) 

IF  (FEET  »«  1) 

C  WRITE  (6/4)  FEET 

4  FORMAT  (IX/  "THE  ANSWER  FOR  ”/I2/  "  FOOT  IS  ") 
CALL  MVPUT  (TOUT) 

3 

ELSE 

C  WRITE  (6/5)  FEET 
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FEET  IS  ") 


5  FORMAT  (IX#  "THE  ANSWER  FOR  "*I?#  " 
CALL  MVPUT  (TOUT) 

3 

3  H  END  OF  MAIN  ITERATION  LOOP 

#  OUTPUT  THE  FINAL  CPU  AND  PAGING  VALUES 
CALL  CTP(O) 

STOP 

END 
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A  THIS  IS  A  PROGRAM  WHICH  OUTPUTS  THE  TEMPERATURE  OF  A  PIECE  OF 
A  PIPE  AT  ONE  FOOT  INTERVALS.  AMBIENT  TEMPERATURE  IS  70 
A  DEGREES;  HEAT  SOURCE  TEMPERATURE  IS  SOO  DEGREES.  INPUT  IS 
tf  THE  AMOUNT  OF  TIME  AFTER  WHICH  END  OF  THE  PIPE  HAS  BEEN 
A  PLACED  AGAINST  THE  HEAT  SOURCE 

A  INTEGER  VARIABLES 

INTEGER  FEET#  COUNT#  TIME#  L 


A  MULTIPLE  PRECISION  INTERVAL  VARIABLES 

DATA  PI<1>#  K ( 1 ) #  R0(1)#  C<1># 

T  EMPL (1 >  #  T  EMPCT (1 >  #  THETA(I)#  T(1>#  X  < 1 >  #  SUM<1># 

X SUM ( 1 )  #  ERROR(I)  /12*200/ 

DATA  T  OUT  ( 1 )  #  T0<1>#  TUI)#  X20<1>#  PI20<1>#  $UM20(1>  /6*20/ 
VARINTERVAL  PI#  K,  RO #  C#  TO#  T1#  TOUT#  TEMPL  #  TEMPCT# 

THETA#  T#  X#  SUM#  XSUM#  ERROR# 

PI 20#  X 20#  SUM20 


XC  *BEG  I N 

A 

A 

A  BEGIN  PROGRAM 


A  INITIALIZATIONS 

CALL  CTPC1)  A  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  «  31415927  A  MAKE  CONVERSION  EXACT 

PI  «  PI/10000000 

PI20  ■  PI 

L  *  10 

TEMPL  »  L 

K  m  30 

RO  «  71  *  623  A  RO  ■  7.1  *  62.3 

RO  ■  R0/100 

C  «  12 

C  *  C/100 

TO  ■  70 

T1  «  500 

ERROR  ■  1 

ERROR  ■  ERROR/1 0000 
ERROR  «  ERROR/IOOOO 
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0  INPUT  THE  AMOUNT  OF  TIME 


WRITE  (6*1) 

1  FORMAT  ("  ENTER  THE  TIME  IN  MINUTES") 
CALL  MV6ET  (THETA) 

2  FORMAT  (V) 


0  LOOP  ONCE  THROUGH  THE  COMPUTATION  FOR  EACH  FOOT 
DO  FEET  «  1*  L 
t 

0  INITIALIZATIONS  FOR  INNER  LOOP 

X  *  FLOAT(FEET) /TEMPL  0  COMPUTE  DISTANCE  TO  HEAT  SOURCE 

0  COMPUTE  A  STARTING  VALUE  FOR  T 
T  a  (X* THETA) /(TEMPL**2  *  RO  *  C) 

SUM  *  0.0 
X SUM  «  0.0 
COUNT  «  0 
TIME  *  0 

0  LOOP  TO  COMPUTE  THE  INTERMEDIATE  VALUES  FOR  THE 
0  TEMPERATURE  AT  THIS  DISTANCE 

REPEAT 

C 

COUNT  «  COUNT  ♦  1 
TEMPCT  »  COUNT 

XSUM  *  ( (-1) ** COUNT /TEMPCT)  * 

( E XP (  - (TEMPCT **2)  *  (PI**2>  *  T)  * 

SIN  (TEMPCT  *  PI  *  X>) 

0  CHECK  FOR  INTERMEDIATE  VALUE  LESS  THAN  ERROR 
IF  ( ABS (XSUM)  <  ERROR) 

C 

0  SINCE  SIN  CAN  GO  CLOSE  TO  0*  LET  ERROR  VALUE 
0  BE  EXCEDED  TWICE 
TIME  «  TIME  ♦  1 
D 

ELSE  TIME  ■  0 
SUM  a  SUM  ♦  XSUM 

3  0  END  OF  LOOP  TO  COMPUTE  INTERMEDIATE  VALUES 

UNTIL  (TIME  ««  2) 


0  COMPUTE  AND  OUTPUT  THE  TEMPERATURE  FOR  THIS  DISTANCE 

X20  ■  X 
SUM20  «  SUM 

TOUT  a  TO  ♦  C T 1  -  TO)  *  (X20  ♦  (2.0/PI20)  *  SUM20) 

IF  (FEET  aa  1) 

C  WRITE  (6*  A )  FEET 
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4  FORMAT  (IX#  "THE  ANSWER  FOR  "/I2/  "  FOOT  IS  "> 
CALL  MVPUT  (TOUT) 

3 

ELSE 

C  WRITE  (6/5)  FEET 

5  FORMAT  (IX/  "THE  ANSWER  FOR  "/I2/  "  FEET  IS  ") 
CALL  MVPUT  (TOUT) 

3 

3  n  ENO  OF  MAIN  ITERATION  LOOP 

#  OUTPUT  THE  FINAL  CPU  AND  PAGING  VALUES 
CALL  CTP(O) 

STOP 

END 
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K  PROGRAM  TO  COMPUTE  HEAT  TRANSFER  IN  A  TEN  FOOT  IRON  BAR 
H  HEAT  SOURCE  IS  500  DEGREES*  AMBIENT  TEMPERATURE  IS  70 

#  DEGREES.  OUTPUT  IS  TEMPERATURE  OF  BAR  AT  ONE  FOOT 

#  INTERVALS.  INPUT  IS  TIME  AFTER  CONTACT  WITH  HEAT  SOURCE 
n  IN  MINUTES. 

# 

n  INTEGER  VARIABLES 

INTEGER  FEET*  KLENGTH*  ITEMP*  TIME 
tt 

K  VARINTERVAL  VARIABLES 

K  CONSTANT  VALUED  VARIABLES 

DATA  ERR  OR  (1)*  PK1)*  PISQR(I)  73*200/ 

DATA  L<1)*  RO ( 1 ) *  C<1>#  R0C<1>*  K(1)  /5*6/ 

DATA  T0<  1 )  *  T  1  <  1  )  *  TDIFF(I)*  PI20(D*  TPI20M(1)  75*20/ 

U  VARIABLE  VALUED  VARIABLES 
DATA  COUNT ( 1 )  7200/ 

DATA  THE T A ( 1 ) *  SUM(1>*  XSUM(I)*  X(1)*  T ( 1  ) *  TEMPL(I)* 
PISQRT  <1 )*  PIX<1>  78*200/ 

DATA  TOUT ( 1 ) *  X20C1 )*  SUM20(1>  /3*20/ 

U  VARINTERVAL  DECLARATION 

VARINTERVAL  PI*  PISQR*  L*  RO*  C*  K *  TO*  T1*  COUNT* 
TOUT*  THETA*  SUM*  XSUM*  X*  T*  ERROR* 

X20*  P 1 20*  SUM20*  PISQRT*  PIX*  TINIT* 
TPI20M*  TDIFF*  ROC*  TEMPL 

n 

n 

n  BEGIN  PROGRAM 
XC*BEGIN 

n  INITIALIZATIONS 

CALL  CTP(1)  U  INITIALIZE  THE  CPU  AND  PAGING  COUNTERS 

PI  *  31415927  n  INITIALIZE  PI  VALUES 

PI  ■  PI/10000000 

PI  20  •  PI 

TPI20M  «  2/PI  20 

PISQR  »  PI  *  PI 

L  *  10  »  LENGTH  OF  BAR 

TEMPL  *  L 

K  •  30 

RO  =  71 

RO  ■  RO  *  623 

RO  «  RO/ 100 

C  «  12 

C  *  C/100 

ROC  «  RO  *  C 
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TO  =  70  n  AMBIENT  TEMPERATURE 

T 1  *  500  n  TEMPERATURE  OF  HEAT  SOURCE 

TDIFF  *  T1  -  TO 


ERROR  »  1  M  ERROR  FACTOR  FOR  LOOP  TERMINATION 

ERROR  *  ERROR /1 0000  #  SET  ERROR  «  1.E-8 
ERROR  >  ERROR /I  0000 

*  GET  THE  TIME#  IN  MINUTES 

WRITE  <6  #1 ) 

1  FORMAT  ("  ENTER  THE  TIME  IN  MINUTES") 

CALL  MVGET  (THETA) 

M 

»  CALCULATE  TEMPERATURE  FOR  EACH  FOOT 

# 

((LENGTH  a  L 

n  COMPUTE  THE  INITIAL  VALUE  FOR  T 
T  s  (K*THETA) /(L**2  *  ROC) 

P I  SORT  *  PISOR  *  T 

00  FEET  *  1#  KLENGTH 

C 


n  COMPUTE  OISTANCE  TO  HEAT  SOURCE 
X  ■  FLOAT(FEET)/TEMPL 

n  LOOP  FOR  THE  COMPUTATION  OF  SUM 
SUM  a  0 

XSUM  *  0  #  INITIAL  LOOP  VALUES 

COUNT  =  0 
TIME  »  0 
PIX  a  pi  *  X 

REPEAT 

l  COUNT  a  COUNT  +  1 
ITEMP  a  COUNT 

XSUM  a  <C-1)**ITEMP/C0UNT>  * 

E  XP (  -<C0UNT**2)  *  PI  SORT)  * 

SIN  (COUNT*PI X ) 

IF  (A8S (X  SUM)  <  ERROR  ) 

TIME  *  time  +  1 
ELSE 

TIME  a  0 

SUM  *  SUM  +  XSUM 

3 

UNTIL  (TIME  «■  2) 

n  COMPUTE  THE  TEMPERATURE  FOR  THIS  OISTANCE 
X  20  «  X 
SUM 20  ■  SUM 

TOUT  a  TO  ♦  (TOIFF)  *  (X20  ♦  (TPI20M)  *  SUM20) 
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#  OUTPUT  THE  FINAL  ANSWER  FOR  THIS  FOOT 
IF  (FEET  «■  1) 

C  WRITE  (6*4)  FEET 

4  FORMAT  (IX  *"THE  ANSWER  FOR  "*I2*"  FOOT  IS  **) 
CALL  MVPUT  (TOUT) 

D 

ELSE 

C  WRITE  (6*5)  FEET 

5  FORMAT  (IX* "THE  ANSWER  FOR  "*I2*"  FEET  IS  " ) 
CALL  MVPUT  (TOUT) 

1 

1 

CALL  CTP(O) 

STOP 

END 
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THE 

ANSWER 

FOR 

1 

FOOT 

I  S 

76.000000 

THE 

ANSWER 

FOR 

2 

FEET 

IS 

70.006000 

THE 

ANSWER 

FOR 

3 

FEET 

IS 

69.999996 

THE 

ANSWER 

FOR 

4 

FEET 

IS 

70.000006 

THE 

ANSWER 

FOR 

5 

FEET 

IS 

70.001100 

THE 

ANSWER 

FOR 

6 

FEET 

IS 

70.072399 

THE 

ANSWER 

FOR 

7 

FEET 

IS 

72.054155 

THE 

ANSWER 

FOR 

8 

FEET 

IS 

95.780487 

THE 

ANSWER 

FOR 

9 

FEET 

IS 

219.179291 

THE 

ANSWER 

FOR 

10 

FEET 

I  s 

500.000050 

CPU 

time  * 

0 

.191516 

seconds; 

Page  faults  *  7 

Single  Precision  Reel 


THE 

ANSWER 

FOR 

1 

FOOT 

IS 

69.999999992 

THE 

ANSWER 

FOR 

2 

FEET 

IS 

69.999999985 

THE 

ANSWER 

FOR 

3 

fEET 

IS 

69.999999999 

THE 

ANSWER 

FOR 

4 

FEET 

IS 

70.000007146 

THE 

ANSWER 

FOR 

5 

FEET 

IS 

70.001103333 

THE 

ANSWER 

FOR 

6 

FEET 

IS 

70.072407058 

THE 

ANSWER 

FOR 

7 

FEET 

IS 

72.054161748 

THE 

ANSWER 

FOR 

8 

FEET 

IS 

95.780486256 

THE 

ANSWER 

FOR 

9 

FEET 

IS 

219.17928843 

THE 

ANSWER 

FOR 

10 

FEET 

IS 

500.00004075 

1 

THE 

ANSWER 

FOR 

1 

FOOT 

IS 

t 

69.999985/ 

70.0000123 

1 

1 

THE 

ANSWER 

FOR 

2 

FEET 

IS 

C 

69.999976/ 

70.0000243 

1 

1 

THE 

ANSWER 

FOR 

3 

FEET 

IS 

C 

69.999972/ 

70.0000263 

1 

t 

THE 

ANSWER 

FOR 

4 

FEET 

IS 

C 

69.999972/ 

70.0000463 

I 

1 

THE 

ANSWER 

FOR 

5 

FEET 

IS 

c 

70.001081/ 

70.0011313 

1 

1 

THE 

ANSWER 

FOR 

6 

FEET 

IS 

c 

70.072363/ 

70.0724593 

1 

1 

THE 

ANSWER 

FOR 

7 

FEET 

IS 

c 

72.054106/ 

72.0542293 

I 

I 

THE 

ANSWER 

FOR 

8 

FEET 

IS 

c 

95.780422/ 

95.7805483 

1 

1 

THE 

ANSWER 

FOR 

9 

FEET 

IS 

E 

219.179247/ 

219.1793483 

1 

1 

THE 

ANSWER 

FOR 

10 

FEET 

IS 

C 

500.000042/ 

500.0000653 

1 

1 

CPU 

time  * 

6. 

869834 

seconds;  Page  faults  «  0 

1 

Single  Precision  Interval 


THE  ANSWER  FOR  1  FOOT  IS 

t 6 9. 99999 999 2071 39976701 39754738 71 481 36 709 04 8054 20447 86 3# 
69.99999999207 13997 670 139 7 5 47 38 71 4 81 3670 904 8054 20 A 47 865  3 
THE  ANSWER  FOR  2  FEET  IS 

C69. 99999998 494 46217 61 35 94 06 88 1905 90 52165389668889 8 20 24 6/ 
69.9999999849446217613594068819059052165389668889820248  3 
THE  ANSWER  FOR  3  FEET  IS 

C69. 99999999895 28434642645248200310562998823875344258493, 
69.9999999989528434642645248200310562998823875344258495  3 
THE  ANSWER  FOR  4  FEET  IS 

C70. 0000071 455271 62820321721 551 36076630385 35808661 501 878, 
70.0000071455271628203217215513607663038535808661501880  3 
THE  ANSWER  FOR  5  FEET  IS 

C70. 001 1 0333253 88201 1032089064 13 23783932921 93344563 3921 1, 
70.0011033325388201 10320890641323783932921933445633921 3  3 
THE  ANSWER  FOR  6  FEET  IS 

C70. 07240 705 7731 981 608956652772043283572601 4296255851 16 5/ 
70.0724070577319816089566527720432835726014296255851168  3 
THE  ANSWER  FOR  7  FEET  IS 

C 7 2. 054 161 74 750445 5 3 41 3 66 707 7006 7972 755 24 701 54 336 50 96 380/ 
72.0541617475044553413667077006797275524701543365096387  3 
THE  ANSWER  FOR  8  FEET  IS 

C95. 78048625580 8661 5 1699952 31 4 39 86085022861 8608429275286/ 
95.7804862558086615169995231439860850228618608429275292  3 
THE  ANSWER  FOR  9  FEET  IS 

C2 19. 1792884282 671 84047410317087029308769531036695007926/ 
219.179288428267184047410317087029308769531036695007927  3 
THE  ANSWER  FOR  10  FEET  IS 

C500. 0000407S475740367308408291 97976301 805 1232721 5229061/ 
500.000040754757403673084082919797630180512327215229062  3 


CPU  tine  «  1812.559863  seconds;  Page  faults  *  297 


56  Decimal  Digit  Interval 
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THE  ANSWER  FOR  1  FOOT  IS 

C  69.999999992071 39976 70 139754738 71 481 3670904805 420 A 4786401 29# 
69.99999999207 1 39976701 397547 3871 481 36709048054204478640670  1 
THE  ANSWER  FOR  2  FEET  IS 

C  69.99999998494462176135940688190590521653896688898202468399, 
69.999999984944621761  35940688190590521653896688898202468957  3 
THE  ANSWER  FOR  3  FEET  IS 

C  69.99999999895284346426452482003105629988238753442584942694, 
69.99999999895284346426452482003105629988238753442584943283  3 
THE  ANSWER  FOR  4  FEET  IS 

t  70.00000714552716282032172155136076630385358086615018788073, 
70.00000714552716282032172155136076630385358086615018788697  3 
THE  ANSWER  FOR  5  FEET  IS 

C  70.0011033325388201 1032089064132378393292193344563392116881, 
70.001103332538820110320890641323783932921933445633921 17413  3 
THE  ANSWER  FOR  6  FEET  IS 

C  70.07240705773198160895665277204328357260142962558511662912, 
70.07240705773198160895665277204328357260142962558511664275  3 
THE  ANSWER  FOR  7  FEET  IS 

i  72.0541617475044553413667077006797275524701 5433650963834299, 
72.0541617475044553413667077006797275524701 5433650963839775  3 
THE  ANSWER  FOR  8  FEET  IS 

C  95.78048625580866151699952314398608502286186084292752883478, 
95.78048625580866151699952314398608502286186084292752888407  3 
THE  ANSWER  FOR  9  FEET  IS 

C  219.1792884282671840474103170870293087695310366950079264830, 
219. 1792884282671840474103170870293087695310366950079264947  3 
THE  ANSWER  FOR  10  FEET  IS 

C  500.0000407547574036730840829197976301805123272152290611000, 
500.0000407547574036730840829197976301805123272152290611 129  3 


CPU  ti«e  *  325.1  seconds;  Page  faults  *  2 


56  Digit  Variable  Precision  Interval 


Appendix  K  -  132 


THE  ANSWER  FOR  1  FOOT  IS 

C  6  9.  999999992071 39976701  39754  73871481367090480542044786403 
8923 14281 5495* 161 21 32931 236 791 3959728 749659290  , 

69. 999999992071 39976701 3975 A  73871481 367090480542044786403 
8923142815495416121329312367913959728749660155  3 

THE  ANSWER  FOR  2  FEET  IS 

C  69.999999984944621 761359406881905905216538966888982024686 

8653403970508937846340160672520997986138153045  , 

69.999999984944621761  3594068819059052165  3896688898202  4686 
8653403970508937846340160672520997986138154210  3 

THE  ANSWER  FOR  3  FEET  IS 

C  69.999999998952843464264524820031056299882387534425849429 
8863753684735706861831983908290906781006897766  , 

69.999999998952843464264524820031056299882387534425849429 
8863753684735706861831983908290906781006899027  3 

THE  ANSWER  FOR  4  FEET  IS 

C  70. 000007145527162820321721551 360766303853580866150187883 

1424437800092699571706061133102514461188824401  # 

70.000007145527162820321721551 3607663038535808661 50187883 
1424437800092699571706061133102514461188825889  3 

THE  ANSWER  FOR  5  FEET  IS 

t  70.001103332538820110320890641 323783932921933445633921170 
9400788600587061214387395142214800687191147076  , 

70.001103332538820110320890641323783932921933445633921170 
9400788600587061214387395142214800687191148308  3 

THE  ANSWER  FOR  6  FEET  IS 

C  70.072407057731981608956652772043283572601429625585116634 

7024149546240608397729207966687296706384349432  , 

70.072407057731981608956652772043283572601429625585116634 
7024149546240608397729207966687296706384351451  3 

THE  ANSWER  FOR  7  FEET  IS 

C  72.054161747504455341366707700679727552470154336509638369 
8468035486727088391445119857126504919375701706  , 

72.054161747504455341366707700679727552470154336509638369 
8468035486727088391445119857126504919375708004  3 

THE  ANSWER  FOR  8  FEET  IS 

C  95.780486255808661 51 6999 5 231 4 3 986085022861 86084292752 8858 
7990041400454762480637218282543083696452166927  , 

95.780486255808661516999523143986085022861860842927528858 
7990041400454762480637218282543083696452173225  3 

THE  ANSWER  FOR  9  FEET  IS 

C  219.17928842826718404741031708702930876953103669500792649 
23283444056058243125587108730480657848715397102  , 

219.17928842826718404741031708702930876953103669500792649 
2328344405605824312558710873048065784871 5398754  3 

THE  ANSWER  FOR  10  FEET  IS 

C  500.00004075475740367308408291979763018051232721522906110 
97650817149143683241973152003319426877820765670  , 

500.00004075475740367308408291979763018051232721522906110 
97650817149143683241973152003319426877820768680  3 


CPU  time  «  726.0  seconds;  Page  faults  »  2 


100  Digit  Variable  Precision  Interval 


Appendix  K  -  133 


THE  ANSWER  FOR  1  FOOT  IS 

C  69. 9999999920 71 399 76 701 39754 73871*813670904805*20*4786*038 
9231428154954161213293123679139597287496597201074425169 
1422947660540283583204753576139570079007617167560730146 
69889883301688116244416856941971164  , 

69.9999999920713997670139754738714813670904805420447864038 
9231428154954161213293123679139597287496597201074425169 
1422947660540283583204753576139570079007617167560730146 
69889883301688116244416856941971963  3 

THE  ANSWER  FOR  2  FEET  IS 

C  69.9999999849446217613594068819059052165389668889820246868 
6534039705089378463401606725209979861381536088458973086 
529544000239873866721671461 5158396515630479505727161799 
26634896573846985848560113705575258  # 

69.9999999849446217613594068819059052165389668889820246868 
6534039705089378463401606725209979861381536088458973086 
5295440002398738667216714615158396515630479505727161799 
26634896573846985848560113705576067  3 

THE  ANSWER  FOR  3  FEET  IS 

C  69.9999999989528434642645248200310562998823875344258494298 
8637536847357068618319839082909067810068983601937126090 
637193992308421 798027631 84079781 737365371 71 41 2294032596 
70735494364789902863868395419314025  , 

69.9999999989528434642645248200310562998823875344258494298 
863753684735706861 8319839082909067810068983601937126090 
637193992308421 79802763184079781 73736537171 41 2294032596 
70735494364789902863868395419314767  3 

THE  ANSWER  FOR  4  FEET  IS 

C  70.0000071455271628203217215513607663038535808661501878831 
4244378000926995717060611331025144611888251494122210329 
6317952788510652325852138383847697633884316551 226493233 
80597649295867707273840571998322541  , 

70.0000071455271628203217215513607663038535808661501878831 
4244378000926995717060611331025144611888251494122210329 
6317952788510652325852138383847697633884316551226493233 
80597649295867707273840571998323369  3 

THE  ANSWER  FOR  5  FEET  IS 

r  70.0011033325388201103208906413237839329219334456339211709 
400788600587061 21 4 387 3951 42 21 48006871 91 1 4781 1 0681 272 568 
3491279629832432355349015852807566453690562938360649535 
08142425200560377751398563366147751  , 

70.0011033325388201103208906413237839329219334456339211709 
400788600587061 21 4387 3951 42 21 48006871 91 1 4781 1 0681 272 568 
3491279629832432355349015852807566453690562938360649535 
08142425200560377751398563366148463  3 

THE  ANSWER  FOR  6  FEET  IS 

C  70.0724070577319816089566527720432835726014296255851166347 
0241495462406083977292079666872967063843506146910908660 
2418288984616609096648694921680015194494702999995358723 
00180592986458694402746119028686441  , 

70.0724070577319816089566527720432835726014296255851166347 
0241495462406083977292079666872967063843506146910908660 
2418288984616609096648694921680015194494702999995358723 
00180592986458694402746119028687918  3 


Appendix  K  -  134 


THf  ANSWER  FOR  7  FEET  IS 

C  72.054161 747504455341 3667077006797275524701543365096383698 
4680354867270883914451198571265049193757048066408398931 
2813918105650332766831809737749136287632909657279240293 
01094044719937746481849453587091419  # 

72.054161747504455341 3667077006797275524701543365096383698 
468035486727088391 4451 1 9857 12650491 9375 7048066408398931 
2813918105650332766831809737749136287632909657279240293 
01094044719937746481849453587097169  3 

THE  ANSWER  FOR  8  FEET  IS 

C  95.7804862558086615169995231439860850228618608429275288587 
9900414004547624806372182825430836964521696998986069616 
868413469679676321 3490875684952633456912843179639814248 
85473176572993661969536143655992254  # 

95.780486255808661 5169995231439860850228618608429275288587 
9900414004547624806372182825430836964521696998986069616 
868413469679676321 349087568495263345691 2843179639814248 
85473176572993661969536143655997731  1 

THE  ANSWER  FOR  9  FEET  IS 

C  219.179288428267184047410317087029308769531036695007926492 
3283444056058243125587108730480657848715397483192204541 
1788708514327831632956024739420827777730560508683350216 
065836909851728537925681795156475716  ' 

219.179288428267184047410317087029308769531036695007926492 
328344405605824312558710873048065784871 5397483192204541 
1788708514327831632956024739420827777730560508683350216 
065836909851728537925681795156476944  3 

THE  ANSWER  FOR  10  FEET  IS 

l  500.000040754757403673084082919797630180512327215229061109 
7650817149143683241973152003319426877820766831310742892 
1122074122072617284752919175416633910948799809071822219 

337336386989209282598995681 320544230  * 

500.000040754757403673084082919797630180512327215229061109 

7650817149143683241973152003319426877820766831310742892 

1122074122072617284752919175416633910948799809071822219 

337336386989209282598995681 320545520  3 

CPU  tine  *  2406.0  seconds;  Page  faults  ■  148 


200  Digit  Variable  Precision  Interval 


Aopendix  K  -  135 


THE  ANSWER  FOR  T  FOOT  IS 

C  69. 9999999920 71 39976701 3975*73871481 36709048054204*786*03*9 
23142815495416121 32931236791395972874965972010744251691422 
9476605402835832047535761395700790076171675607301466988988 
3301688116244416856941971559068022800052867351531609414847 
9520467721798353572474135003962092158180319980594255713741 
6215630761442926171244988747559667139033080195361698339260 
1363733215381833013577787751756241330602804747655697121865 
8423826003801689506983412776859976330379096096812354445741 
74148762712681026530065004628559895762  , 

69.99999999207139976701397547387148136709048054204478640389 
23142815495416121 32931236791395972874965972010744251691422 
9476605402835832047535761 395700790076171675607301466988988 
3301688116244416856941971 55 9068022800052867351 5316094 1 4847 
9520467721798353572474135003962092158180319980594255713741 
6215630761442926171244988747559667139033080195361698339260 
1363733215381833013577787751756241330602804747655697121865 
84  238260038016895  0698  34127768  5997633037909609681  235444  5741 
74148762712681026530065004628559897611  1 

THE  ANSWER  FOR  ?  FEET  IS 

C  69.999999984944621761 35940688190590521653896688898202468686 
5340397050893784634016067252099798613815360884589730865295 
44000239873866721671461 51583965156304795057271617992663489 
65738469858485601 13705575674345701897696291518993394881234 
82220312921275771 5840407816787647375769794873944794684*298 
90848077124494830995331 55236272810878301931672367073384353 
9947605198160591443517020868549317583038201570060971 507106 
1138036909702959605753398626667231538290697554480623640606 
68784038524087638900936311953814883001  , 

69.999999984944621761 35940688190590521653896688898202468686 
5340397050893784634016067252099798613815360884589730865295 
4400023987386672167146151583965156304795057271617992663489 
65738469858485601 1 3705 57 5674345701 897696291 51 8993394881 234 
82220312921275771 58404078167876473757697948739447946844298 
90848077124494830995331 55236272810878301931672367073384353 
9947605198160591443517020868549317583038201570060971507106 
1138036909702959605753398626667231538290697554480623640606 
68784038524087638900936311953814884876  .  '  '  3 

THE  ANSWER  FOR  3  FEET  IS 

C  6 9. 9999999989 52843 464 2645 24820031 QS6299882 3875344 258494 2988 
63753684  735706861  8319839082909.06781006898  36019371260906371 
93992308421798027631 840 7978 1 7 37365 371 7 1 41 2294 032 5967073549 
43647899028638683954 1931 4  402  4  8967 561 7 54 387370697  8951  495299 
9835215148213089103190101737751910573272509395530444127308 
291286007636013571071011550136841147201 3004983986124523649 
1290035526782875949425785616822012960842371479884743013770 
97378518564737774725681456625896755872714*0980849726333270 
65680151214745928722365606668824563647  , 

69.99999999895284346426452482003105629988238753442584942988 
6375368473570686183198390829090678100689836019371260906371 
9399230842179802763184079781737365371714122940325967073549 
4364789902863868395419314402489675617543873706978951495299 
983521514821 3089103190101737751910573272509395530444127308 
291286007636013571071011550136841147201 3004983986124523649 


Appendix  K 


136 


1 29003  55  2678  28759494  25785  61 68  2201 296084237147988474301 3770 
9737 85 185 64 737 7 74 725681 4  5662589675587271 4  4098084  97263332  70 
65680151214745928722365606668824565196  3 

THE  ANSWER  FOR  4  FEET  IS 

C  70.00000714552716282032172155136076630385358086615018788314 
2443780009269957170606113310251446118882514941222103296317 
9527885106523258521383838476976338843165512264932338059764 
9295867707273840571 99832281 85861 39973923*0972831 2569031690 
5765676878356993227546079879004017769266313498146051316835 
9370584670045221558101295985552829481952977291226407257944 
0856953566697643354417975989005780232456762378561802572415 
4954678143373287301659653789853603618706863124203648199022 
28316850637692372528765592372659707870  , 

70.000007145527162820321721551 3607663038535808661 5018788314 
24437800092699571 70606113310251446118882514941222103296317 
9527885106523258521383838476976338843165512264932338059764 
929586770727384057199832281 8586139973923409728312569031690 
5765676878356993227S4607987900401 77692663 134981 4605 131 6835 
9370584670045221558101295985552829481952977291226407257944 
0856953566697643354417975989005780232456762378561802572415 
4954678143373287301659653789853603618706863124203648199022 
28316850637692372528765592372659709682  3 

THE  ANSWER  FOR  5  FEET  IS 

C  70.00110333253882011032089064132378393292193344563392117094 
007886005870612143873951422148006871911478110681 2725683491 
279629832432  35534  901  5852807566453690562938360649  5350814242 
5200560377751398563366147976439882015922490066417413176718 
2835976607590796248706993481523562119018836939556684745502 
2951461439201607390673582555120334436721717046032935629354 
5451825314425808293147035433771259720167534964548561603809 
2766108911704320215947749976462523581633935990468415181675 
66195430248467173805649547523177448707  , 

70.00110333253882011032089064132378393292193344563392117094 
007886005870612143873951422148006871911478110681 2725683491 
279629832432  35534  901  5852807566453690562938360649  53  50814242 
5200560377751393563366147976439882015922490066417413176718 
2835976607590796248706993481523562119018836939556684745502 
2951461439201607390673582555120334436721717046032935629354 
5451825314425808293147035433771259720167534964548561603809 
2766108911704320215947749976462523581633935990468415181675 
66195430248467173805649547523177449727  3 

THE  ANSWER  FOR  6  FEET  IS 

t  70.0724070577319816089566527720432835726014296255851 1663470 
2414954624060839772920796668729670638435061469109086602418 
2889846166090966486949216800151944947029999953587230018059 
2986458694402746119028687132905996117304059114293276805638 
560327556656559705210781 350632081 7346722375004473242782680 
1501090482595123755358109761811408763785455531020629392621 
4547444599433448547079578775135822665174682891854485805817 
9691816053354282233493106040002370206447299678750805172266 
06483578136120164030845651579508388965  , 

70.07240705773198160895665277204328357260142962558511663470 
2414954624060839772920796668729670638435061469109086602418 
2889846166090966486949216800151944947029999953587230018059 
29864586944027461 19028687132905996117304059114293276805638 


Appendix  K  -  137 


560327556656559705210781350632081 7346722375004475242782680  I 
1501090482595123755358109761811408763785455531020629392621  I 
4547444599433448547079578775135822665174682891854485805817  I 
9691816053354282233493106040002370206447299678750805172266  1 

06483578136120164030845651579508390991  3  1 

THE  ANSWER  FOR  7  FEET  IS  I 

C  72.05416174750445534136670770067972755247015433650963836984  I 
680354867270883914451198571 2650491937570480664083989312813  I 
9181056503327668318097377491362876329096572792402930109404  I 
4719937746481849453587094641203867914412373207327679192344  I 
0499697316266752893857956207398152275337150572396892888956  I 
1576798365661362721275650445038481372844770946171526961243  1 

8265472801582437048653182033950185245115637656206542378955  I 
67797531189453607531 3034455426087381 7203371560176496395083  I 
49285086675166841981427967192409500938  »  I 

72.054161747504455341 36670770067972755247015433650963836984  I 
68035486727088391 44511985712650491937570480664083989312813  I 
9181056503327668318097377491362876329096572792402930109404  I 
4719937746481849453587094641203867914412373207327679192344  I 
04996973162667528938579562073981 52275337150572396892888956  I 
1576798365661362721275650445038481372844770946171526961243  I 
82654728015824370486531820339501852451 15637656206542378955  I 
67797531189453607531 3034455426087381 7203371560176496395083  I 
49285086675166841981427967192409507509  3  I 

THE  ANSWER  FOR  8  FEET  IS  I 

t  95.78048625580866151699952314398608502286186084292752885879  I 
9004140045476248063721828254308369645216969989860696168684  I 
1346967967632134908756849526334569128431796398142488547317  1 

6572993661969536143655995407781281097088433473933022022261  I 
5776042162560577192028283327234262293855150296290628385043  I 

003 365 476  33208889 543 249594591 6091 906246478864053 T001U30596 _ L 

9429945711098145777738064350572098877525094844158781016499  I 
9759643950362268002287196442369102028178079858603093956743  I 
83354874021856434265122826672319598424  ,  I 

95.78048625580866151699952314398608502286186084292752885879  I 
9004140045476248063721828254308369645216969989860696168684  I 
1346967967632134908756849526334569128431796398142488547317  I 
65729936619695361 436 5599 5407781 28 1 09708843347393 3022022261  I 
5776042162560577192028283327234262293855150296290628385043  I 
0033654763320888954324959459160919062464788640531001030596  I 
9429945711098145777738064350572098877525094844158781016499  I 
9759643950362268002287196442369102028178079858603093956743  I 
83354874021856434265122826672319604722  1  I 

THE  ANSWER  FOR  9  FEET  IS  I 

C  219.1792884282671840474103170870293087695310366950079264923  I 
28344405605824312558710873048065784871 5397483192204541 1 788  I 
7085143278316329560247394208277777305605086833502160658369  I 
0985172853792568179515647684941125318473371356142302944833  I 
5995664965854082423075134955535888411709351567924626426106  I 
325688617701 62628880 274934065 5947 721 494 8760422305996088489  I 
888565389167675725288023161 9550832629002653312045531634508  I 
33259177275059226028065786343204124856505603269491068691 53  I 
743118966082359517504852194508794637976  ,  I 

219.1792884282671840474103170870293087695310366950079264923  I 
2834440560582431255871087304806578487153974831922045411788  1 
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7085143278316329560247394208277777305605086833502160658369 
0985172853792568179515647684941125318473371356142302944833 
59956649658540824230751 34955535888411709351567924626426106 
325688617701 6262888027493406559477214948760422305996088489 
888565389167675725288023161 9550832629002653312045531634508 
332591 77275059226028065786343204124856505603269491068691 53 
743118966082359517504852194508794639986  1 

THE  ANSWER  FOR  10  FEET  IS 

C  500.0000407547574036730840829197976301805123272152290611097 
6508171491436832419731 52003 31 9426877820766831 31 07428921 1 22 
0741220726172847529191754166339109487998090718222193373363 
86989209282598995681 32054540086506036661116401899203541569 
2995061120224717553418715808324372244011118796351049908048 
99430584618728262590251 9675 66 2657230588 19 1 961 81 2 71 81 1 96756 
761448718740040860149819224185268862241617529111 5965602807 
22733652903867890654135575831 57592276916680787946258135071 
595556560773068193957563746723927059230  , 

500.0000407547574036730840829197976301805123272152290611097 
65081714914368324197315200331 94268778207668313107428921122 
0741220726172847529191754166339109487998090718222193373363 
86989209282598995681 32054540086506036661116401899203541569 
299506112022471755341871580832437224401 1118796351049908048 
9943058461872826259025196756626572305881919618127181196756 
761448718740040860149819224185268862241617529111 5965602807 
22733652903867890654135575831 57592276916680787946258135071 
595556560773068193957563746723927060090  3 


CPU  time  ■  15505.37  seconds/  Page  faults  *  142 
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THE  ANSWER  FOR  1  FOOT  IS 
C  69.99999999207139976701, 
THE  ANSWER  FOR  2  FEET  IS 
C  69.99999998494462176135, 
THE  ANSWER  FOR  3  FEET  IS 
C  69.99999999895284346426, 
THE  ANSWER  FOR  4  FEET  IS 
C  70.00000714552716282032, 
THE  ANSWER  FOR  5  FEET  IS 
C  70.00110333253882011031, 
THE  ANSWER  FOR  6  FEET  IS 
t  70.07240705773198160895, 
THE  ANSWER  FOR  7  FEET  IS 
C  72.05416174750445533986, 
THE  ANSWER  FOR  8  FEET  IS 
C  95.78048625580866151535, 
THE  ANSWER  FOR  9  FEET  IS 
C  219.17928842826718404740, 
THE  ANSWER  FOR  10  FEET  IS 
C  500.00004075475740366990, 


69.99999999207139976702  3 
69.99999998494462176136  3 
69.99999999895284346427  3 
70.00000714552716282033  3 
70.00110333253882011033  3 
70.07240705773198160896  3 
72.05416174750445534261  3 
95.78048625580866151809  3 
219.17928842826718404742  3 
500.00004075475740367420  3 
onds*  Page  faults  *  223 


I  CPU  time  =  2396.169230  sec 

l_  _  __  .  .  .  _  .  .. 
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I  THE  ANSWER  FOR  1  FOOT  IS 
•  C  69.99999999207139976701, 

I  THE  ANSWER  FOR  2  FEET  IS 
1  C  69.99999998494462176135, 

I  THE  ANSWER  FOR  3  FEET  IS 
I  C  69.99999999895284346426, 

I  THE  ANSWER  FOR  4  FEET  IS 
I  C  70.00000714552716282032, 

I  THE  ANSWER  FOR  5  FEET  IS 
I  C  70.00110333253882011031, 

I  THE  ANSWER  FOR  6  FEET  IS 
I  C  70.07240705773198160895, 

I  THE  ANSWER  FOR  7  FEET  IS 
I  C  72.05416174750445533986, 

I  THE  ANSWER  FOR  8  FEET  IS 
I  C  95.78048625580866151535, 

I  THE  ANSWER  FOR  9  FEET  IS 
I  C  219.17928842826718404740, 
I  THE  ANSWER  FOR  10  FEET  IS 
1  C  500.00004075475740366990, 

I - 

I  CPU  time  ■  2377.67  seconds 

I _ 


I 

69.99999999207139976702  3  I 

I 

69.99999998494462176136  3  I 

I 

69.99999999895284346427  3  I 

I 

70.00000714552716282033  3  I 

I 

70.00110333253882011033  3  I 

I 

70.07240705773198160896  3  I 

I 

72.05416174750445534261  3  1 

I 

95.78048625580866151809  3  I 

I 

219.17928842826718404742  3  I 

I 

500.00004075475740367420  3  I 

- 1 

Page  faults  ■  153  I 

_ I 
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SOME  EXPERIMENTS  USING  INTERVAL  ARITHMETIC* 


» 


Eric  K.  Reuter#  John  P.  Jeter#  J.  Wayne  Anderson 
and  Bruce  D.  Shriver 

Computer  Science  Department 
University  of  Southwestern  Louisiana 
Lafayette#  Louisiana  70504 


This  paper  reviews  past  experiences  and  discusses  future 
work  in  the  area  of  interval  arithmetic  at  the  University  of 
Southwestern  Louisiana  <USL).  Two  versions  of  interval 
arithmetic  were  developed  and  implemented  at  USL  CB3.  An 
interval  data  type  declaration  and  the  necessary  mathematical 
functions  for  this  data  tyoe  were  added  to  Fortran  via  the 
preprocessor  Augment  C4#53.  In  the  first  version#  the  endpoints 
of  the  intervals  were  represented  as  single  precision  floating 
point  numbers.  In  the  other  version#  the  endpoints  were 
represented  to  56  decimal  digits.  Production  engineering 
programs  were  run  as  benchmarks  ESI.  The  accumulation  of 
computational  and  algorithmic  error  could  be  observed  as  a 
widening  of  the  intervals.  The  benchmarks  were  also  run  in 
normal  single  and  double  precision  arithmetic.  In  some 
instances#  the  result  obtained  from  a  single  or  double  precision 
calculation  was  not  bounded  by  the  cor  respond i nq  interval  result 
indicating  some  problem  with  the  algorithm.  The  widening  of  an 
interval  does  not  necessarily  indicate  a  data  sensitivity  nor 
error  in  an  algorithm.  However#  these  larqe  intervals  can  be 
used  as  indicators  of  possible  trouble  areas.  On  the  other  hand# 
small  intervals  can  be  used  as  an  indicator  of  no  problems.  »s 
could  be  expected#  the  56-decimal  digit  precision  interval  qave 
better  results  in  terms  of  smaller  intervals  due  to  the 
increased  amount  of  precision.  The  obvious  oroblem  wirh  this 
version  is  that  the  amount  of  overhead  required  for  its  execution 
is  high. 

*  This  work  has  been  supported  in  part  by  the  U.  S.  Army  Corps 
of  Engineers#  contract  numbers  D  A  C  A  3  9-76-M- 0  24P  and 
DACA39-77-M-0106. 


1.0  Introduction 


The  floating  point  number  system  used  on  contemporary 
computers  is  an  approximation  to  the  real  number  system.  In 
interval  arithmetic*  a  non- representabl e  real  number  is 
approximated  by  an  interval  consisting  of  machine  representable 
endpoints  which  bound  the  number.  Intervals  will  be  regarded  as 
bounds  on  an  exact  but  unknown  real  number.  This  means  that  if 
the  interval  Ca*b1  is  a  computer  approximation  to  the  exact 
result  x  then  a<x<b.  To  obtain  the  "best"  machine  representation 
of  the  interval*  a  must  be  the  greatest  lower  bound  for  x  and  b 
must  be  the  least  upper  bound  for  x.  In  this  way  the  interval 
Ca*bD  will  be  the  smallest  computer  representable  interval  that 
contains  x. 

In  order  to  obtain  the  smallest  computer  representable 
interval  for  the  result  of  arithmetic  operations  on  intervals* 
directed  roundings  on  the  computer  arithmetic  operations  must  be 
defined.  If  x  is  a  real  number  and  Ml  and  *2  are  two  consecutive 
machine  representable  numbers  such  that  M1<x<M?  and  if  r  is  a 
rounding  function*  then  r  is  downward  directed  if  r(x)  *  Ml  and  r 
is  upward  directed  if  r(x)  *  M ?.  Ml  and  M?  will  be  the  machine 
representable  numbers  that  are  respectively  the  greatest  lower 
bound  and  the  least  upper  bound  for  the  real  number  x.  If  x  is  a 
machine  representable  number*  then  r(x>  *  x. 

In  general*  the  result  of  a  finite  precision  arithmetic 
operation  does  not  always  oroduee  a  machine  representable  number. 
In  other  words*  a  op  b*  where  a  and  b  are  machine  representable 


numbers  and  op  is#  in  general#  one  of  the  machine  arithmetic 
operations#  may  not  be  a  machine  representable  number  and  must  be 
rounded. 

Since  the  exponent  range  of  floating  point  numbers  is 
bounded#  exponent  overflow  and  underflow  may  occur  durinq  an 
arithmetic  operation.  If  underflow  occurs#  then  the  true  result 
is  between  zero  and  the  smallest  positive  or  negative 
representable  number.  In  the  case  of  underflow#  a  directed 
rounding  may  a i ve  a  valid  bound.  In  the  case  of  overflow#  if 
rounding  away  from  2ero  is  wanted#  then  there  is  no  machine 
representable  number  which  can  be  used  as  a  correct  bound.  This 
is  known  as  an  infinity  fault. 

1.1  Interval  Valued  Functions 

A  real-valued  function#  f#  which  is  defined  and  continuous 
on  an  interval  Ca#b3  can  be  extended  to  an  interval-valued 
function#  F #  of  an  interval  variable#  Ta#b3#  by  defining 

F(Ca#b])  a  Cc#dl  such  that  f(x)  is  contained 
in  Cc#d3  for  every  x  in  Ca#b1 

where  c  and  d  are  machine  r epr esent abl e  numbers. 

When  f  is  evaluated  at  a  point  x  using  a  machine 
representable  approximation  to  x#  a  computer  approximation  to  f 
results.  This  computer  approximation#  F(Ta#b?)#  is  defined  as  an 
interval  that  contains  f<x>.  If  f  is  monotonic  increasing  on 
Fa#b!I#  then  F(Ca#b!J)  =  Od  (f  <  a  >  >  #  ru  (f  (b  )  )3  where  rd  is  such  that 
rd(f(a>)  £  f(a>  and  ru  is  such  that  ru(f(b>)  2  f(b>.  Ideally#  we 


would  like  rdCf(a))  to  be  the  largest  machine  representabl e 
number  such  that  rd(f(a))  <  f<a)  (i.e.#  a  greatest  lower  bound) 
and  ru(f(b>)  to  be  the  smallest  machine  representable  number  such 
that  ru(f(b))  >  f(b)  (i.e.  a  least  upper  bound).  Similarly#  if  f 
is  monotonic  decreasing  on  Ca#b3#  then  F(Ca#b3)  * 
Crd(f(b))#ru<f(a)) 

If  f  is  not  monotonic  on  Ca#b3#  then  the  interval  Ca#b]  can 

be  divided  into  disjoint  sub  i  nt  e  r  va  l  s  )  Ca  #b  T#  i  =  1  #  2  #*  #  ,  ,  .  #n  ; 

i  i 

where  each  a  and  b  are  machine  representable  numbers  and  f  is 
i  i 

monotonic  on  each  subinterval.  Further#  U  [a  #b  1  contains  all 

i  i 

machine  representable  numbers  in  the  interval  Ca#b3  and  f  is 

monotonic  on  each  subinterval.  It  can  be  shown  in  this  case  that 

F  (  Ca  #bl )  =  U  F  <  Ca  #b  1). 

i  i 

Algorithms  for  performing  the  machine  arithmetic  operations 
with  directed  roundings  can  be  found  in  Yohe  C91.  These 
operations  are  used  to  compute  the  endpoints  of  the  resultant 
interval  for  a  particular  arithmetic  operation  performed  on  two 
intervals.  A  downward  directed  rounding  is  performed  on  the  left 
endpoint  and  an  upward  directed  rounding  is  performed  on  the 
right  endpoint.  For  example#  interval  addition  is  defined  as 
fol  lows : 

Ca#bl  ♦  Cc#d3  *  Crd  (a»c ) #ru(b»d)  1 

where  •  is  the  machine  addition  operation  and  rd  is  a  downward 
directed  rounding  and  ru  is  an  upward  directed  rounding. 


It  may  not  be  possible  to  obtain  the  best  bounds  for  the 
result  of  the  computer  approx i mat i on  to  the  function  f.  An 
example  would  be  a  machine  calculation  of  the  sine  which  is  known 
to  be  accurate  to  only  7  digits  out  of  9. 

?.0  The  Implementation  of  the  MRC  Interval  Arithmetic  Package 

for  the  Multics  System 

The  interval  arithmetic  package  and  the  input/output 
routines  for  interval  numbers  which  have  been  implemented  on  the 
Multi cs  system  follow  the  design  of  an  interval  arithmetic 
package  implemented  on  the  UNIVAC  1108  computer  located  at  the 
Mathematics  Research  Center#  mrc#  of  the  University  of  Wisconsin 
t<?#6#10].  A  description  of  the  implementation  of  the  MR  C 
interval  arithmetic  package  on  the  Multics  system  is  given  in 
Appendix  A.  This  appendix  is  quite  lennthy  but  contains 
information  related  to  the  implementation  of  mathematical 
software  rarely  found  in  the  literature. 

3.0  Penchmarks 

Several  production  programs  were  obtained  from  the  Army 
Corps  of  Engineers#  Waterways  Experiment  Station#  Vicksburgh# 
Mississippi#  to  be  run  as  benchmarks.  These  proorams  consisted 
of  four  linear  eauation  solvers#  a  matrix  inversion  routine#  a 
fast  fourier  transform  routine#  a  slope  stability  program  and  a 
stress  program. 

The  accumulation  of  computat i onal  and  algorithmic  error  can 
be  seen  as  a  growth  in  the  width  of  intervals.  Wide  intervals 
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are  not  necessarily  a  sign  of  data  sensitivity  or  algorithmic 
error.  When  a  program  is  run  using  interval  data  types*  a 
natural  tendency  is  for  intervals  to  grow  wider.  However*  small 
intervals  are  an  indication  of  no  problems  and  wide  intervals 
serve  as  indicators  of  possible  trouble  spots. 

During  the  testing  of  the  initial  interval  implementation* 
there  were  many  instances  where  the  intervals  became  quite  large. 
It  was  difficult  to  determine  during  analysis  whether  this 
widening  was  a  problem  with  the  algorithm*  an  unavoidable  result 
from  interval  arithmetic*  or  due  to  the  lack  of  precision  of  the 
representat ion  of  the  endpoints.  56  decimal  digit  interval  was 
implemented  to  help  resolve  this  problem. 

3.1  Linear  Equation  Solvers 

Four  linear  equation  solvers  were  included  in  the  benchmarks 
supplied  by  the  Army  Corps  of  Engineers.  Included  was  a  Gaussian 
elimination  program.  It  was  first  tested  on  a  simple  4  by  4 
linear  system.  Using  the  standard  interval  package*  the 
magnitude  of  the  resulting  intervals  were  from  10**-4  to  10**-2. 
All  routines  were  also  run  in  regular  single  and  double 
precision.  The  results  obtained  by  using  standard  interval 
insured  the  correctness  of  the  results  only  to  the  third  or 
fourth  decimal  place.  In  all  instances  the  intervals  bounded  the 
results  produced  in  single  and  double  precision.  The  same  test 
case  was  executed  using  the  56  decimal  digit  interval  package. 
In  this  case  the  width  of  the  intervals  varied  from  10**-51  to 
in**-50.  This  extra  precision  obtained  from  using  extended 


precision  interval  was  obtained  at  the  cost  of  an  increase  in  epu 
time  used.  The  standard  interval  run  reauired  only  .44  seconds 
of  processor  time  while  the  extended  interval  required  1?.64 
seconds.  More  will  be  said  about  the  cost  of  interval  and 
extended  interval  later. 

A  second  test  case*  this  time  a  f  by  7  linear  system*  was 
also  tried.  The  standard  interval  version  did  not  produce  any 
results  as  the  intervals  grew  too  large.  However*  the  extended 
interval  version  was  able  to  compute  results.  The  width  of  the 
intervals  produced  varied  from  10**-45  to  10**-43. 

There  were  three  other  eauation  solvers.  The  second 
eauation  solver*  BANSOL*  solved  banded  systems  of  equations  using 
Gaussian  elimination  with  no  pivoting.  The  matrix  of  coefficients 
is  assumed  to  be  symmetrical  and  only  the  upper  triangular  banded 
matrix  of  coefficients  is  stored.  The  SESOL  program  solved  a 
banded  system  of  linear  equations  using  the  LU  decomposition 
technique.  Operations  with  zero  elements  are  not  performed.  The 
matrix  of  coefficients  is  symmetrical  and  only  the  upper 
triangular  banded  matrix  of  coefficients  is  stored.  The  fourth 
eauation  solver  was  a  spline  program.  It  solved  a  system  of 
linear  equations  using  an  iterative  technique  to  calculate  the 
moments  of  a  set  of  data  points  in  order  to  fit  a  cubic  spline  to 
those  data  points.  In  all  three  cases  the  results  were  similar 
to  those  above  and  are  discussed  in  detail  in  C?1. 

3.2  Matrix  Inversion 

The  matrix  inversion  program  finds  the  inverse  of  a  square 


matrix.  The  first  test  case  was  a  Hilbert  matrix  of  order  4. 

The  interval  results  fro*  the  standard  interval  run  were  quite 

wide#  from  10**-3  to  0.26.  The  extended  intervals  were  fro* 

10**-50  to  10**-47.  When  an  attempt  was  made  to  invert  a  Hilbert 

,  matrix  of  order  10#  standard  interval  could  not  find  a  solution 

♦ 

and  the  single  precision  results  were  erroneous.  The  extended 
precision  intervals  widths  ranqed  from  10**-36  to  10**-?8  and 

I 

»  again  indicated  that  the  double  precision  results  were  good  to 

only  8  or  9  digits  of  precision. 

3.3  Fast  Fourier  Transform 

The  fast  fourier  transform  (  F  F  T  >  program  supplied  by  the 
Army  Corps  of  Fnqineers  proved  to  be  a  quite  stable  algorithm.  A 
difficulty  in  its  impl ementat i on  in  double  precision  and  interval 
should  be  mentioned.  A  FFT  program  produces  complex  arithmetic 
results.  Fortran  does  not  normally  support  double  precision 
complex  arithmetic  and#  therefore#  it  had  to  be  simulated.  The 
same  type  of  simulation  had  to  be  done  for  interval.  This  slowed 
the  execution  of  the  algorithm  considerably.  In  all  test  cases# 
alt  arithmetics  produced  good  results.  The  single  precision 
intervals  had  a  width  of  on  the  order  of  10**-6  and  the  extended 
,  intervals#  10**-53. 

3.4  Slope  Stability  Program 

*  An  application  program#  SLOPE#  was  also  sent  us  by  the  Army 

Corps  of  Engineers.  Testing  using  this  program  consisted  of 
varying  a  set  of  three  inputs  (cohesion#  unit  weight#  and  phi) 


7 


for  the  program  plus  or  minus  ten  percent.  This  resulted  in  81 
runs  for  each  type  of  arithmetic. 

Two  problems  arose  when  implementing  the  slope  program  in 
interval  arithmetic.  The  first  resulted  from  the  way  in  which 
the  interval  package  evaluates  the  test  value  in  an  arithmetic  IF 
statement.  When  an  arithmetic  IF  statement  is  encountered  with 
an  interval  test  value*  the  interval  is  converted  to  real*  i.e.* 
the  midpoint  is  taken.  In  one  of  the  subroutines  a  particular 
branch  was  to  be  taken  only  if  the  test  value  is  positive. 
Certain  intervals  were  passing  along  this  branch  whose  midpoint 
was  indeed  positive  but  whose  left  endooint  was  negative.  The 
interval  was  subseauently  used  as  a  divisor  and*  since  the 
interval  contained  2ero*  a  zero  divide  error  oecured.  The 
solution  to  this  problem  was  to  recode  using  a  logical  IF  which 
is  evaluated  in  a  different  manner  and  avoids  this  problem. 

The  second  problem  was  more  difficult  to  pin  down.  During 
testing  using  standard  interval*  some  of  the  runs  contained 
intervals  which  were  "blowing  up"*  that  is*  the  width  of  the 
intervals  were  becoming  unacceptably  large.  After  a  considerable 
analysis  effort*  a  correlation  was  uncovered  between  the  larqe 
intervals  and  the  -iny  value  for  unit  weight.  By  starting  with 
the  initial  value  for  unit  weight  and  decreasing  its  value  in 
increments  of  ,?5X*  the  initial  value  at  which  the  intervals  blew 
up  could  be  pinpointed.  This  occured  at  about  -2.?5T  of  the 
initial  value.  As  long  as  unit  weight  did  not  go  below  this 
value*  acceptable  results  were  obtained.  After  further  effort* 
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the  problem  was  traced  to  a  single  statement#  ”T7  *  FS1  -  FSL". 
As  unit  weight  decreased  below  -2.25X  of  its  original  value# 
values  of  F$1  and  FSL  became  closer  and  closer  together.  This 
subtraction  resulted  in  stripping  off  the  significant  digits.  T3 

9  was  subseauently  used  as  a  divisor  compounding  the  effect. 

♦ 

During  the  procedure  of  tracking  down  the  error  source#  a 
side  benefit  was  reaped  which  is  indicative  of  the  type  of 

* 

»  recoding  of  algorithms  sometimes  necessary  to  get  satisfactory 

results  from  limited  precision  interval  arithmetic.  Several 
computations  could  be  combined  and  an  interval  consistently  of 
less  than  optimal  width  could  be  factored  out  producing  a  more 
accurate  algorithm.  The  set  of  runs  was  repeated  using  the 
extended  interval  package.  Host  of  the  data  sensitivity  noted 
above  disappeared.  No  interval  widths  exceeded  ip**~4. 

7.5  Testing  Summary 

The  36-decimal  digit  interval  package  did  prove  useful  in 
many  cases.  nften  the  standard  interval  either  produced  no 
solution  or  solutions  with  extremely  wide  intervals.  Some 
massaging  of  the  code  supplied  by  the  Army  Corp  of  Engineers  was 
required  to  execute  it  satisfactorily  using  interval  arithmetic. 

,  The  primary  cost  of  the  use  of  extended  precision  interval 

arithmetic  was  in  terms  of  central  processing  time  consumed  and 

*  increased  paging  activity.  On  a  system  like  Wultics#  both  of 

these  figures  can  be  perturbed  by  the  load  on  the  system.  The 
figures  in  Table  3.1  for  the  FFT  routine  indicates  a  general 
trend.  This  data  was  gathered  from  runs  made  during  a  contiguous 
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time  interval  during  a  period  of  low  system  utilization. 


eft&E.UULIS 

EEU-IIBE  (seconds) 

single  precision 

23 

0.3623 

double  precision 

36 

0.6678 

standard  interval 

39 

14.4994 

56  decimal  interval 

3195 

466.8781 

Table  3.1 

FFT  Subroutine  Overhead 

4.0  Conclusions  and  Future  Work 

Interval  arithmetic  can#  at  times#  be  extremely  useful.  For 
instance#  it  can  be  used  to  indicate  the  limits  of  precision  of 
an  algorithm  for  a  given  set  of  data.  From  the  testing  it  was 
shown  that  much  better  bounds  on  the  precision  were  obtained 
using  the  extended  interval  package.  This  was#  of  course#  not 
unexpected.  56  decimal  digits  carry  more  precision  than  27 
binary  digits  (equivalent  to  approximately  8  decimal  digits)  and 
there  is  no  conversion  error  on  input  and  output  for  the  56 
decimal  interval  package.  The  price  paid  was  in  terms  of  runtime 
efficiency.  Standard  precision  interval  resulted  in 

approximately#  at  most#  an  order  of  magnitude  increase  in 
execution  time  over  that  of  single  or  double  precision 
arithmetic.  56  decimal  interval  arithmetic  resulted  in  a  further 
increase  of  more  than  one  to  more  than  two  orders  of  magnitude. 
It  should  be  noted  here  that  the  56  digit  version  was  based  upon 
the  59  decimal  digit  hardware  arithmetic  unit  of  the  Honeywell 


H68/80  processor.  Extended  precision  arithmetic  using  software 
simulated  basic  operations  could  be  expected  to  take  much  longer. 

One  obvious  application  of  extended  interval  arithmetic 
would  be  to  validate  existing  programs.  Any  data  sensitivity 
discovered  could  be  included  in  a  description  of  the  algorithm 
and  directions  on  its  use.  Although  extended  precision  interval 
arithmetic  is  expensive*  its  cost  must  be  balanced  against 
possible  consequences  of  using  invalid  results.  An  organization 
like  Corps  of  Engineers  might  weigh  a  defective  dam  or  the  cost 
of  moving  100*000  tons  of  dirt  against  the  cost  of  a  few  hours  of 
computer  time. 

A  more  effective  technique  would  he  to  first  test  the 
algorithm  using  standard  precision  interval  arithmetic.  Its 
relatively  small  decrease  in  run  time  efficiency  indicates  that 
its  use  is  more  than  justified  as  an  economical  means  of 
identifying  possible  trouble  areas  in  an  algorithm  for  the  data 
under  consideration.  The  more  expensive  extended  interval 
package  could  be  applied  to  just  those  cases  where  possible 
trouble  areas  have  been  identified. 

Interval  arithmetic  can  be  used  to  determine  the  precision 
of  the  arithmetic  required  to  guarantee  a  given  precision  in  the 
results  of  an  algorithm.  In  some  of  the  benchmarks  executed  in 
56  decimal  digit  interval  arithmetic*  the  results  were  good  only 
to  AH  or  so  digits.  This  represents  a  considerable  loss  of 
precision.  It  also  points  out  why  arbitrarily  picking  a  given 
precision  for  arithmetic  does  not  guarantee  results  in  which 


absolute  confidence  can  be  placed.  Mow  qreat  an  increase  in 
precision  is  obtained#  if  any#  by  going  from  a  machine  with 
32-bit  words  to  one  with  60  bit  words'’ 

In  general#  whether  using  interval  or  regular  arithmetic# 
the  greater  the  precision  the  longer  the  run  time  required  for  a 
given  algorithm.  Having  variable  precision  interval  arithmetic 
would  allow  the  validation  of  algorithms  for  which  standard 
precision  interval  arithmetic  is  insufficient  without  having  to 
go  all  the  way  to  56  decimal  digit  precision.  There  will  also  be 
instances  where  it  might  be  desirable  or  necessary  to  go  beyond 
56  decimal  digits  of  precision.  In  any  case#  the  overhead 
associated  with  execution  in  interval  arithmetic  will  only  be  as 
great  as  required  for  the  necessary  precision.  A  variable 
precision  interval  arithmetic  package  is  currently  under 
development  at  USL. 

The  execution  speed  of  interval  arithmetic  can  be  increased 
in  several  ways.  One  would  be  to  decrease  the  number  of  levels 
of  i nt erpre t at i on  required  in  the  current  implementation.  The 
optimum  solution  would  be  to  have  a  hardware  or  firmware  module 
which  could  execute  variable  precision  interval  arithmetic. 
Many  existing  minicomputer  systems  have  undefined  opcodes  for 
just  such  requirements.  As  a  side  effect#  an  arithmetic  unit 
that  can  execute  variable  precision  interval  arithmetic  can  also 
execute  traditional  variable  precision  floating  point  arithmetic. 
This  means  that  interval  arithmetic#  of  the  necessary  precision# 
could  be  used  to  determine  the  required  arithmetic  precision 
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algorithm.  The  algorithm#  then# 
required  precision. 


Appendix  A 


A.O  The  Implementation  of  the  MRC  Interval  Arithmetic  Package 

for  the  Multics  System 

In  the  Multics  implementation*  the  endpoints  of  the 

intervals  are  represented  as  a  pair  of  floating  point  numbers 

stored  in  consecutive  storage  locations.  The  Multics  single 
precision  floating  point  format  uses  a  36  bit  word  which  consists 
of  an  8-bit  2’s  complement  exponent*  with  the  high  order  bit  the 
sign  bit*  followed  by  a  28-bit  normalized  ?'s  complement 

fraction*  with  the  high  order  bit  the  sign  bit. 

The  subroutines  of  the  MRC  interval  package  can  be  divided 
into  eight  categories.  These  categories  are  arithmetic 

operations*  exponentiation  operations*  conversion  functions* 
comparison*  basic  external  functions*  supporting  functions* 
input/output  routines  and  miscellaneous.  All  of  the  routines  in 
each  category  except  the  input/output  category  were  written  in 
Fortran.  Several  of  the  Fortran  subroutines  call  routines  that 
are  written  in  PL/I.  The  PL/I  routines  correspond  for  the  most 
part  to  the  assembler  routines  that  were  written  for  the  UNIVAC 
1108  version  of  the  interval  package  and  are  written  specifically 
for  the  Multics  implementation.  Most  of  the  input/output 
routines  were  written  in  PL/I. 

The  routines  which  perform  the  four  basic  arithmetic 
operations  of  addition*  subtraction*  multiplication*  and  division 


on  interval  numbers  are  machine  dependent 


Since  we  want  the 


best  computer  appr ox i ma t i on  to  the  results  of  computer  arithmetic 
operations  on  intervals#  directed  roundings  on  the  computer 
arithmetic  operations  must  be  performed.  The  floatinq  point 
hardware  on  the  system  does  not  perform  directed  roundings. 
Therefore  the  four  basic  single  precision  floating  point  computer 
arithmetic  operations  of  addition#  subtraction#  multiplication# 
and  division  had  to  be  simulated  in  order  to  provide  the  correct 
roundings.  A  description  of  the  routines  that  simulated  the 
floating  point  computer  arithmetic  operations  and  provided  the 
proper  directed  roundings  and  a  description  of  the  routines  that 
perform  the  basic  computer  arithmetic  operations  on  intervals 
follows.  These  routines  perform  the  "best  possible  arithmetic" 
computer  operations  with  directed  roundinqs  as  described  by  Yohe 
C9!l.  All  the  routines  are  written  in  PL/I  for  the  wultics 
sy  stem. 

A . 1  Basic  External  Functions 

Included  in  the  interval  package  are  the  interval 
counterparts  of  the  multics  basic  external  functions  atan?#  exp# 
aloq#  alogin#  sin#  cos#  tan#  asin#  acos#  atan#  sinh#  cosh  and 
sort.  The  general  method  of  calculation  of  the  interval 
functions  involves  bounding  the  results  of  the  co rr es pond  in g 
double  precision  basic  external  function.  For  functions  that  are 
monotonic  over  an  interval#  the  endpoints  of  the  resultant 
interval  are  the  result  of  the  double  precision  function 
evaluated  at  the  endpoints  of  the  input  interval  and  then 


properly  bounded.  If  the  function  is  not  monotonic  over  the 
interval#  then  a  case  analysis  is  done  by  dividing  the  input 
interval  into  subintervals  over  which  the  function  is  monotonic. 

The  result  obtained  from  the  double  precision  functions  must 
be  bounded  before  it  can  be  used  as  the  endpoint  of  an  interval. 
Therefore#  the  accuracy  of  the  results  of  the  double  precision 
basic  external  functions  are  required  by  determining  a  lower 
bound  on  the  number  of  bits  of  the  fraction  that  the  result  is 
guaranteed  to  have.  This  can  be  illustrated  by  the  following 
example.  Suppose  a  result  is  accurate  to  35  bits  of  fraction  and 
a  27  bit  lower  bound  for  the  result  is  required.  Assume  that  the 
?7th  through  37th  bits  of  the  fraction  were  10000000000.  If  the 
result  were  just  truncated  to  27  bits  the  ?7th  bit  would  be  a  1. 
If  however  the  37th  bit  was  one  unit  too  larqe#  then  bits  ?7 
through  37  would  be  01111111111  and  the  ?7th  bit  of  the  correct 
lower  bound  would  be  0.  It  cannot  be  determined  which  case  is 
correct . 

The  following  general  bounding  technique  is  performed  which 
will  produce  correct  bounds  in  all  cases#  but  it  does  not 
necessarily  produce  optimal  bounds.  If  a  lower  bound  is  sought 
for  the  double  precision  result#  then  the  fraction  is  decremented 
by  one  at  or  before  the  last  bit  known  to  be  accurate.  If  an 
upper  bound  is  sought#  then  the  fraction  is  incremented  by  one  at 
or  before  the  last  bit  known  to  be  accurate.  The  same  bounding 
technique  used  in  bounding  the  results  of  the  arithmetic 


operations  is  then  used  to  obtain  the  27  bit  fraction  of  the 
result. 

A. 1.1  Accuracy  Testing 

To  our  knowledge/  there  is  no  documentation  concerning  the 
implementation  of  the  basic  external  functions  on  ?ultics  used  by 
PL/I  and  Fortran.  Therefore/  the  accuracy  of  these  functions  had 
to  be  determined.  Three  approaches  were  considered  for  use  in 
determining  the  accuracy  of  the  required  external  function: 

1)  rigorous  error  analysis  of  actual  implementations 

2)  rewriting  of  the  algorithms 

3)  comparison  of  accuracy  with  known  test  data 

First/  the  error  analysis  of  the  mathematical  library  routines 
seemed  to  be  impossible  due  to  the:  (a)  lack  of  description  of 
the  algorithms  employed/  (b)  low  readability  of  the  source 
programs  (much  of  which  was  written  in  ALM/  the  assembly  language 
of  Multics).  The  second  possibility  had  to  be  eliminated  due  to 
the  time  constraints  of  the  project  and  therefore  the  third 
approach  had  to  be  taken. 

The  testing  itself  was  done  in  two  stages: 

stagel  -  generation  of  input  test  data  and 
evaluation  of  the  given  function 

stage?  -  comparison  of  significant  digits  of 
the  result  and  corresponding  values  in 
published  tables  C13 


"Driver"  programs  were  written  which  generated  test  data  and 
called  the  routines  which  were  to  be  tested.  The  output  was 
generated  in  decimal  form  and  then  a  check  was  made  as  to  the 
first  digit  that  was  different  from  the  result  given  in  the 
table.  All  digits  of  function  values  which  were  tested  proved  to 
be  identical  with  c 0 rre spond i ng  tabular  digits  (the  only 


exception  being 

the  last 

digit 

in  the 

Abramov i  tx '  s 

tables) . 

However*  the 

analysis  of  the 

very 

next 

digit  in  our 

results 

showed  that 

i  n 

each  case 

the 

error 

was  caused  by 

an  upward 

round i ng  . 

The  test  data  had  been  restricted  to  the  decimal  values  that 
can  be  represented  exactly  in  the  floating  binary  notation. 
Thus*  we  avoided  the  input  conversion  error  and  the  function 
value  could  be  obtained  for  the  true  argument.  Also*  we  have  to 
warn  that  the  accuracy  estimated  in  this  way  must  be  somewhat 
pessimistic.  We  were  able  to  check  only  as  many  digits  as  were 
qiven  in  the  standard  tables.  Thus*  the  tan  function  is  assumed 
to  have  only  8  accurate  decimal  digits  even  though  there  are 
reasons  to  believe  that  accuracy  is  much  greater  than  that. 

2.1.2  Error  Conditions 

The  Univac  1108  double  precision  floatinq  point  number  has 
an  11-bit  exponent  field  vs.  an  8-bit  exponent  in  the  single 
precision  word.  This  allowed  the  checking  for  overflow  and 
underflow  faults  to  be  done  during  the  conversion  from  double  to 


single  precision  format.  In  Multics*  both  single  precision  and 
double  precision  floating  point  numbers  have  an  8-bit  exponent 
field.  Therefore*  the  check  for  eventual  fault  conditions  had  to 
be  made  prior  to  the  calls  to  the  double  precision  functions. 

Overflow  could  be  produced  by  the  following  functions:  exp* 
sinh*  cosh  and  tanh.  In  the  Multics  implementation  of  interval 
arithmetic*  overflow  in  these  functions  was  prohibited  by 
restricting  the  domain  of  the  arguments  to  the  interval 
l>88. 028*88. 028].  Should  an  argument  fall  outside  this  domain* 
special  actions  (described  later)  had  to  be  taken.  Restricting 
arguments  to  this  domain  prevented  overflow  from  occuring  during 
the  evaluation  of  the  functions.  However*  the  magnitude  of  the 
endpoints  of  the  results  were  atways  much  smaller  than  the 
largest  representable  number.  This  implies  that  the  domain  of 
the  arguments  should  be  extended. 

8.2  Input/Output  Routines 

The  I/O  routines  implemented  on  Multics  were  designed  to 
some  extent  after  the  I/O  routines  implemented  for  the  UNIVAC 
1108  version  of  the  interval  package  C43.  Additional  routines 
were  included  in  the  Multics  version  to  handle  scalar  interval 
variables  and  a  matrix  of  interval  variables. 

A. 3  56  Decimal  Digit  Interval  Implementation 

A  56  decimal  digit  version  of  the  original  Multics  interval 
package  has  also  been  implemented  on  the  Multics  system.  This 
version  uses  the  decimal  arithmetic  hardware  available  on  the 


Honeywell  H68/80  processor.  The  decimal  arithmetic  unit  performs 
both  fixed  and  floating  point  59-decimal  digit  arithmetic. 
Fixed  decimal  arithmetic  was  used  to  implement  the  decimal 
interval  package.  Floating  point  decimal  arithmetic  was  not  used 
due  to  the  lack  of  control  the  user  has  over  both  the  rounding 
strategy  used  and  the  detection  of  faults  (overflow*  underflow* 
and  divide  by  zero).  The  endpoints  of  the  intervals  are 
represented  by  a  56  decimal  digit  fraction  and  a  17  binary  digit 
exponent.  A  59-decimal  digit  fraction  was  not  used  because  in 
the  implementation  of  the  BP A  routines*  two  digits  were  needed 
for  guard  digits  and  one  digit  was  reserved  for  overflow. 

The  implementation  of  the  56  decimal  digit  interval  package 
followed  the  implementation  of  the  original  Multics  interval 
package  as  closely  as  possible.  In  this  way  the  logic  of  the 
original  interval  package  was  used  and  the  number  of  errors 
encountered  in  the  implementation  could  be  reduced.  The  entire 
56  decimal  digit  interval  package  was  written  in  PL/I  as  Fortran 
does  not  support  decimal  arithmetic.  Only  the  number  of  words 
required  to  carry  the  PL/I  representation  of  the  interval  was 
declared  in  Fortran.  The  Fortran  routines  would  carry  the 
interval  to  be  passed  to  the  PL/I  routines. 

The  first  step  in  the  implementation  of  the  56  decimal  digit 
Interval  package  was  the  implementation  of  the  best  possible 
arithmetic  *  BP A*  routines  (see  section  1.0  of  the  attached 
paper).  The  existing  proceedures  for  doing  BPA  for  the  original 
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interval  package  were  modified  to  perform  56  decimal  version.  In 
the  single  precision  interval  package  the  implementation  of  the 
I/O  routines  proved  to  be  one  of  the  most  difficult  tasks.  This 
was  due  to  the  required  conversions  between  floating  decimal  and 
floating  binary.  The  correct  roundings  had  to  be  done  for  the 
conversions  in  either  direction  and  the  algorithms  for  the 
conversions  became  rather  involved.  The  implementation  of  the  56 
decimal  digit  interval  I/O  presented  no  such  problems  as  the 
internal  representation  of  the  interval  was  already  in  decimal. 
The  only  rounding  done  is  on  output  when  the  user  requests  less 
than  56  decimal  digits  of  precision. 

In  the  initial  interval  effort#  the  interval  counterparts  of 
the  basic  external  functions  were  implemented  through  the  double 
precision  floating  binary  routines  in  the  Multics  library.  This 
obviously  would  not  be  sufficient  for  the  56  decimal 
i mpl emen ta t i on.  The  basic  external  functions  had  to  be 
calculated  to  a  precision  of  greater  than  56  decimal  digits.  To 
achieve  this#  the  Fortran  Multiple  Precision  Package#  MPP, 
developed  by  Brent  C33  was  used.  The  values  produced  by  the 
basic  external  functions  could  be  calculated  to  an  arbitrary 
precision  using  MPP.  It  was  necessary  to  construct  an  interface 
between  Brent's  routines  written  in  Fortran  and  the  interval 
package  written  in  PL/I.  The  implementation  of  the  SIN  and  COS 
routines  presented  an  especially  difficult  implementation 
problem.  The  arguments  had  to  be  reduced  to  a  value  between  D 
and  2pi.  A  case  analysis  then  had  to  be  made  for  each  endpoint 


or  COS 


wv-jfc-*'  '«:fe'»> 


to  determine  the  correct  interval  evaluation  of  the  SIN  or  COS 
function.  The  case  analysis  depended  on  the  correct  56  decimal 
digit  bounds  on  the  numbers  pi/2,  pi,  3pi/2,  2pi,  5pi/2,  3pi  and 
7pi/2.  These  constants  had  to  computed  using  the  MPP. 
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A  54  decimal  digit  version  of  the  original  Multics  Interval 
package  has  been  Implemented  on  the  Multics  system.  This  vers ie<j| 
uses  the  decimal  arithmetic  hardware  available  on  the  Multic 
system.  The  Multics  decimal  arithmetic  unit  performs  both  fixol 
and  floating  point  59  decimal  digit  arithmetic.  Fixed  dec  1  me 
arithmetic  was  used  to  Implement  the  decimal  Interval  packagol 
The  floating  point  decimal  arithmetic  was  not  used  because  of  tll| 
lack  of  control  the  user  has  over  both  the  rounding  strategy  use 
and  the  detection  of  faults  (overflow#  underflow  and  divide  b| 
sere).  The  end  points  of  the  Intervals  are  represented  by  54 
decimal  digit  fraction  and  a  17  binary  digit  exponent.  A  54 

decimal  digit  fraction  was  not  used  was  because  In  tlm 

Implementation  of  the  "best  possible  arithmetic"  routines#  tvf| 
digits  were  needed  for  guard  digits  and  one  digit  was  reservo 
for  overflow. 


1 

The  Implementation  of  the  56  decimal  digit  Interval  peeks? 
followed  the  Implementation  of  the  original  Multlcs  interva 
package  as  closely  as  possible  £33.  In  this  way  the  logic  of  tto 
original  Interval  package  was  used  and  the  number  of  error 
encountered  In  the  Implementation  of  the  56  decimal  digH 
Interval  package  was  reduced.  The  entire  56  decimal  digi 
Interval  package  was  written  In  PL/I  as  Fortran  does  not  suppor 
decimal  arithmetic.  Just  the  number  of  words  required  to  cam 
the  PL/I  representation  of  the  interval  was  declared  in  Fortran 
The  Fortran  routines  would  carry  the  interval  to  be  passed  to  tlf 
PL/I  routines. 


The  first  step  in  the  implementation  of  the  56  decimal  d1gl| 
Interval  package  was  the  implementation  of  the  "Best  Possibl 
Arithmetic"  or  "BP A"  routines  as  proposed  by  Yohe  CAT.  Th4 
already  existing  procedures  for  doing  BPA  for  the  original 
interval  package  were  modified  to  perform  56  decimal  "BPA".  Th| 
implementation  was  fairly  straightf orward. 


In  the  single  precision  interval 
implementation  of  the  I/O  pack 
difficult  operations.  The  reason 
from  floating  decimal  to  flea 
correct  roundings  had  to  be  done 
direction  and  the  algorithms  f 
Involved.  The  Implementation  of 
I/O  presented  no  problem  with 
representation  of  the  Interval  wa 
rounding  is  on  output  if  the  us 
digits  on  output. 
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In  the  initial  interval  effort  £33 
the  basic  external  functions  were 
precision  floating  binary  routines 


the  interval  counterparts 
implemented  through  the  doubtl 
in  the  Multics  library. 


vtrnmm 


obviously  would  not  be  sufficient  for  the  56  declaali 
implementation.  The  basic  external  functions  bed  to  blj 
calculated  to  a  precision  of  greater  than  56  decimal  digits.  Tm 
achieve  this#  we  are  using  the  Fortran  Multiple  Precision! 
Packager  MPPz  developed  by  Richard  Brent  t13.  The  basic  external^ 
functions  could  be  calculated  using  the  MPP  to  an  arbitrary: 
nuaber  of  declaal  digits.  One  problea  that  was  to  be  solved  was 
the  Interface  between  Brent’s  routines  written  In  Fortran  and  th#j 
56  declaal  digit  Interval  package  written  In  PL/!.  The  Interface! 
was  just  a  conversion  froa  the  data  representation  In  the  MPP  to! 
the  data  represented  on  used  In  the  Interval  package  after  bi 
correct  rounding  was  made.  Another  problea  was  In  the j 
lapleaentat Ion  of  the  SIN  and  COS  routines.  These  routines: 
required  the  greatest  amount  of  work  to  lapleaent.  The  arguaenfi 
had  to  be  reduced  to  between  0  and  2pl.  A  case  analysis  then  hadll 
to  be  made  for  each  endpoint  to  deteralne  the  correct  Interval! 


evaluation  of  the  SIN  or  COS  function.  The 
depended  on  the  correct  56  declaal  digit  bounds  or 


keet  IntervalJ 
case  analyslir 
the  nuaber s 


pl/2r  plr  3pi/?z  2plz  5pl /2r  3pl  and  7pl/2. 
to  be  coaputed  using  the  MPP. 


These  constants 


&va*«£x.I*bifi* 
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An  example  is  shewn  below  of  a  simple  A  by  4  linear  system.  The 
results  for  single  precision*  double  precision*  single  precision 
interval*  and  extended  interval  are  shown.  For  the  interval 
results*  the  width  of  the  intervals  appear  below  each  interval* 
The  widths  for  the  single  precision  intervals  are  expressed  as  o 
single  precision  value  and  the  widths  for  the  extended  intervals 
are  expressed  as  an  extended  interval.  The  widths  of  the  single 
precision  intervals  are  of  the  magnitude  10**-4  to  10**-2  white 
the  widths  of  the  extended  intervals  are  of  the  magnitude  10**-51 
to  10**-5O.  The  reduced  interval  widths  for  the  extended 
intervals  is  due  to  the  extra  precision  of  the  extended 
intervals.  The  price  that  had  to  be  paid  for  the  increase  in 
precision  was  an  increase  in  cpu  tine  from  .44  cpu  seconds  to 
12.64  cpu  seconds  for  the  extended  interval  results*  but  a  good 
deal  of  precision  was  gained. 

Matrix  of  Order  4s 

5  7  6  5 

7  10  8  7 

6  8  10  9 

5  7  9  10 

Vector  of  Constants: 

23  32  33  31 


SiQQi£.E£££iiifiO 


TIME  AMO  PAGE  FAULTS  FOR  THE  GAUSSIAN  ELIMINATION  ARE  AS  FOLLOWS: 

CPU  time  ■  0.011512  seconds*  Page  faults  «  1 

THE  SOLUTION  IS  AS  FOLLOWS: 

0.999999449  1.000000328 

1.000000179  0.999999903 


fifiUblC-E£££iii£i> 

TIME  AN0  PAGE  FAULTS  FOR  THE  GAUSSIAN  ELIMINATION  ARE  AS  FOLLOWS: 
CPU  time  *  0.032315  seconds*  Page  faults  *  7 


THE  SOLUTION  1$  AS  FOLLOWS 


io-AOB?  56%  UNIVERSITY  OF  SOUTHWESTERN  LOUISIANA  LAFAYETTE  F/G  9/2 

VARIABLE  PRECISION  AND  INTERVAL  ARITHMETICS  PORTABLE  ENHANCEMENT- ETC (U> 
JUL  60  B  D  SHRIVER  DAAG29-78-G-00&8 

UNCLASSIFIED  AR0-15169.1-M  NL 


1 • 00000000000000003 

U • TT T TTT t ttV YfYYYYY 


0.9999999999999998 
1 .9999999999999999 


Sifi9li.££tSlSlOS.l6ti£gll 

TIME  AND  PACE  FAULTS  FOR  THE  6AUSSIAN  ELIMINATION  AR  AS  F0LL0I 
CPU  time  *  0.444765  seconds!  Page  faults  *  3 

3 

THE  SOLUTION  IS  AS  FOLLOWS:  1 

■+ 

C  .9988601 5+00#  .100114449+013  t  .99929769+00#  .1000066993* 
0. 11 4233791 8e-02  0.700801 161 09e-03  ~ 

C  .99991752+00#  .10000813+0013  C  .99995276+00#  .10000480+0 
0. 81 84090257e-04  00. 4761 666059+-04  J 


£xieo0fid.ioit£9ii 

TIME  AND  PACE  FAULTS  FOR  THE  GAUSSIAN  ELIMINATION  ARE  AS  F0LL0I 

CPU  ti*e  *  12.645348  seconds!  Page  faults  *  5 

THE  SOLUTION  IS  AS  FOLLOWS: 

C  .9999999999+00000#  .1000000001+000013 
C  .2646500000+00050#. 26465000000-000503 

l  .9999999999+00000#  .1000000001+000013 
C  .1623500000-00050#  .1623500000-000503 

C  .9999999999+00000#  .1000000001+000013 
C  .1895800000-00051#  .1895800000-000513 

C  .9999999999+00000#  .1000000001+000013 
C  .1101000000+00051#  .1101000000-000513 


Another  example#  shewn  below#  of  a  7  by  7  linear  system  shew 
that  the  single  precision  interval  version  has  broken  down#  b_ 
the  extended  Interval  version  was  able  to  ceepute  the  results 
The  Interval  widths  were  of  the  magnitude  10++-45  to  100++-43. 

Matrix  ef  Order  7: 


180180 

120120 

90090 

72072 

60060 

51480 

45045 

120120 

90090 

72072 

60060 

51480 

4  5045 

4004  0 

90090 

72072 

60060 

51480 

4  5045 

40040 

36036 

72072 

60060 

51480 

45045 

40040 

36036 

32760 

60060 

51480 

4  5045 

40040 

36036 

32760 

30300 

51480 

45045 

40040 

36036 

32760 

30030 

27720 

45045 


40040 


36056  32760  30030  27720  25740 


Voctar  of  Constants: 

1  1  1  1  1  1  1  J 

TIME  AND  PAGE  FAULTS  FOP  THE  GAUSSIAN  ELIMINATION  ARE  AS  FOLLOWS*: 

CPU  tiao  ■  0.19547  seconds#  Pago  faults  *  0  __ 

THE  SOLUTION  IS  AS  FOLLOWS: 

OrOOOl 06439  -0.003075291  0.26859137  ~ 

-0.101941098  0.188414240  -0.166749334  3 

0.056536387  J 

Cflubit-ElfitiliflO  “* 

TIME  AND  PAGE  FAULTS  FOR  THE  GAUSSIAN  ELIMINATION  ARE  AS  FOLLOWS: 

CPU  ti*o  ■  0.023362  seconds#  Pago  faults  *  1 

THE  SOLUTION  IS  AS  FOLLOWS: 

0.00015540015540038  -0.00419580419580964 

0.03496503496507612  -0.12820512820526593  H 

0,23076923076945858  -0.20000000000018252 

0.06666666666672321  J 

SiQ9lS.ectfii8ifiQ.l0lfi£N8l  __ 

} 

THE  6AUSS  ELIMINATION  PROCESS  HAS  BROKEN  DOWN  BECAUSE  NO  PIVOT 
6REATER  THAN  THE  INPUT  TOLERANCE  COULD  BE  FOUND  FOR  THE  6TH  STEP. 

EattodtiLlasatxal 

TIME  AND  PAGE  FAULTS  FOR  THE  GAUSSIAN  ELIMINATION 

CPU  tiao  *  25.043362  seconds#  Pago  faults  * 

THE  SOLUTION  IS  AS  FOLLOWS: 

C  .1554001554-00003#  .1554001555-000031 
C  .3468206177-00043#  .3468206178-000431 

C-. 4195804196-00002#-. 4195804195-000021 
C  .3357609101-00043#  .3357609102-000431 


RE  AS  FOLLOWS^ 
11 


C  .3494503 *96-0000 1,  .3494503*97-000013 
t~. 1802486229-00043#  . 1802686230-000433 


C-. 1 282051 283+00800#-. 1 282051282+000003 

C  .8297311 333*00044/  .6 297511 334-000443 - 

t  .2307492307400000#  .23074923084000003 
£  .1835758441-00044#  .1835738442-000443 

C- .2000000001 400000#- . 1 9999999994000003 
C  . 4 24 '1149309-00045 #  .42411*9309-000453 

C  .4444444444-00001#  .4446444447-000013 
C  .1298809545-00045#  .1298809546-000453 

fiAtfSfiL.efififitOO 

The  following  exanple  shows  the  results  for  the  BANSOL  routine 
which  solves  a  bonded  systeo  of  equations  using  Gaussian 
etioination  with  no  pivoting.  The  Matrix  of  coefficients  1 
assuned  to  be  synnetrical  and  only  the  upper  triangular  banded 
Matrix  of  order  4  as  the  Matrix  of  coefficients.  The  single 
precision  Interval,  results  have  an  interval  width  of  the 
Magnitude  10**-1  while  the  extended  interval  results  have  an 
interval  width  of  the  Magnitude  10**-48. 

Hilbert  Matrix  of  Order  4 


vector  of  Constant s: 


10  0  0 


Sioflie.ectcijieo 

TIME  AND  PAGE  FAULTS  FOR  BANSOL  METHOD  ARE  AS  FOLLOWS: 
CPU  tine  «  0.029758  seconds;  Page  faults  •  1 


THE  SOLUTION  IS  AS  FOLLOWS: 

0. 1600010896e+02 
0. 24 00028324a +03 


-0.1 20001 1 921e+03 
-0. 140001 8272e+03 


fiaubU-ectiiaifio 

TIME  AND  PAGE  FAULTS  FOR  BANSOL  METHOD  APE  AS  FOLLOWS: 


CPU  tine  ■  0.026642  seconds#  Page  faults  ■ 


THE  SOLUTION  IS  AS  FOLLOWS: 


0.1 60000000000 00000562d*02  -O.12OO0OOOOOOO0OOO8581d*O3 
0. 24000000000000001 347d-Q3  -0.14000000000000000855d*03 

TIMS  AND  PA6E  FAULTS  FOR  BANSOL  METHOO  ARE  AS  FOLLOWS: 

CPU  ti««  *  0.484731  seconds*  Page  faults  ■  3 

THE  SOLUTION  IS  AS  FOLLOWS: 

C  .139*91 14*02/  .16030875*021  C-. 12003797*03/-. 11996195*031 

0.3088021 278e-01  0. 380005836Se-01 

t  .23997602*03/  .24002383*031  C-.14001561*03/-.13998431*033 

0. 23900985 72e-01  0. 1 56478881 8e-01 

Eiit£)£Jed-lDit£*jl 

TIME  AND  PAGE  FAULTS  FOR  BANSOL  METHOD  ARE  AS  FOLLOW: 


CPU  tine  ■ 


1.959542  seconds*  Page  faults  * 


THE  SOLUTION  IS  AS  FOLLOWS: 

C  .1599999999*00002/  .1600000001*000021 
C  .2227200000-00048/  .2227200000-000481 

C-. 1 200000001*00003/-. 1 1 99999999*000031 
C  .2740700000-00048/  .2740700000-000481 

C  .2399999999*00003/  .2400000001*000031 
t  .1725100000-00048/  .1725100000-000481 

C-. 1400000001 *00003/-. 1399999999*000031 
C  .1127100000*00048/  .1127100000-000481 

The  next  example  uses  an  Hilbert  Matrix  of  order  10  for  th* 
matrix  of  coefficients.  The  solution  for  the  single  precis! 
Interval  case  cannot  be  found.  The  solution  for  the  extends 
Interval  case  could  be  found  with  the  Interval  widths  rang1n_ 
fron  10**-29  to  10*«-25.  Also  note  that  the  single  precision 
results  are  Meaningless. 

Hilbert  Matrix  of  Order  10 


Vector  of  Constants: 


1000000000 


stool*. emiii  so 


TIME  AN*  PAGE  FAULTS  FOR  BANSOL  METHOD  ARE  AS  FOLLOWS: 


CPU  1 1  MR  ■ 


0*065116  seconds;  Pago  faults  « 


0. 48040379520 *02 
-••6609998 340e*05 
-0.52301991 70s +05 
-©• 3 3806924 3?e *05 


-IT.  204 19819950*04 
0.1 03 83 29 834 e >06 
0. 9 5 72640381 e *04 


0.18025877694 
-•.3899778605o*05 
0.61732502440*05 


BaWfitf-CCtllliOO 

TIME  AND  PAGE  FAULTS  FOR  BANSOL  METHOD  ARE  AS  FOLLOWS: 


CPU  ti»e  * 


0.099313  seconds#  Page  faults  * 


THE  SOLUTI ON  IS  AS  FOLLOWS: 

0. 100000002357883 587 93d*Q 3 
0.792000042921676551 964*05 
0*2522 5201 84 935 5641 24 3d*07 
0. 9609600830 5 590789023d *07 
0 . 4  3 75 8004 200809984 750d*07 


-0.49500002024461 2079S2d*0 
-0 .600600038881966622746 
-0.630630050720870391 26d 
-0.8751 600801 311 59310626*0 
-0.9237800 922 44955 6988 5d ♦ 


SiO8l8-Ct8U8l0fi.lOt8Xi0i 


SOLUTION  CANNOT  BE  FOUND 


EXl80dfiii.l0t8£X8i 

TIME  AND  PAGE  FAULT  FOR  BANSOL  METHOD  ARE  FOLLOWS: 

CPU  tine  ■  13.190437  seconds#  Pago  faults  » 

THE  SOLUTION  IS  AS  FOLLOWS: 

C  .9999999999*00002#  .1000000001*000033 
C  .2607111740-00025#  .2607111741-000253 

C-.4950000081 *00004#-. 4949999999*000043 
C  .321 66 3 33 06- 0002 S#  .3216633307-000253 

t  .7919999999*00005#  .7920000001*000053 
C  .2078321976-00025#  .2078321977-000253 

C  .6006000001 *00006#-. 6005999999*000063 
C  .9134022350-00026#  .9134022351-000263 


C  .2522519999*00007#  .2522520001*000073 
C  .3044631515-0026#  .3044631S16-000263 


£>•4506300001*00007 ,-.6306299999+009073 
C  . *177182762-00027,  .81771*2763-000273 

C  * 960 95 9 99 99+00007,  .9409400001*009073 
T  .1839461895-00027,  .1839441896-000273 

£> .875 1600001 *00007, -.8751 599999+000073 
C  .3552142351-00028,  .3552142352-000283 

C  .4375799999*00007,  .4375800001+000073 
C  •  581 058 4 608- 00029,  ,5810584607-000293 

£-.9237 800001 *00006,-. 9 2377 99999+000063 
C  .1288532381-00029,  .1288532382-000293 


S£&fiL.E£ftfl£M 

The  SESOL  program  solves  a  banded  systea  ef  linear  equatleno] 
using  the  LU  decomposition  technique.  Operations  with  tcr< 
elements  are  net  performed.  The  matrix  of  coefficients  1j 
symmetrical  randoaly;  only  the  upper  trlenguler  trended  aetrlx  el 
coefficients  is  stored.  The  first  exeaple  uses  on  Hilbert  mat rl x~ 
ef  coefficients  Is  stored.  The  first  exeaple  uses  en  Hilbert' 
aetrlx  ef  order  4  for  the  aatrlx  ef  coefficients.  The  single^ 
precision  Interval  results  had  Interval  widths  of  the  magnitude 
10**-1,  while  the  extended  Interval  results  had  Interal  widths  ofl 
the  magnitude  10**-48. 

Hilbert  Matrix  of  Order  4 


Vector  ef  Constants: 

10  0  0 

Siofllc.tttfiiiiflo 

TIME  AND  PAGE  FAULTS  FOR  SESOL  METHOD  ARE  AS  FOLLOWS: 

CPU  time  *  0.223950  seconds*  Page  faults  »  5 

THE  SOLUTION  IS  AS  FOLLOWS: 


0.1 60000877 4e+0Z 
0. 240002241 1e+03 


-0. 1 200009499e*03 
-0.1 40001 4400e*03 


fiflUbit-CCttllifiO 


TIME  AND  Page  Faults  TIME  AND  PAGE  FAULTS  FOR  SESOL  METHOD  ARE  ATI 
FOLLOWS:  1 


CPU  tine  *  0.2257*9  seconds;  Page  faults  *  6 


THE  SOLUTION  IS  AS  FOLLOWS: 


U«  I  3T77TT777TT7T777 J9COTU C  "O#  S  f  7777777777777779 

0.239999999999999985 01  d+03  -0.1 3999999999999998998d+03 


SiDfll«.££i£iSi4A.10it£X*i 

Ttftt  AWB  PA«  FAULTS  FOIL  SESOL  WETH00  ABE  AS  FOLLOWS: 

CPU  tine  *  0.657901  seconds*  Page  faults  *  9 

THE  SOLUTION  IS  AS  FOLLOWS: 

C  .1576e054+<tt#  .16033943+023  t-.12004178+03#^.1 1993823+05J- 

0. 339441 2994e-01  0. 41 7704 5822e-01 

C  . 239973 77+03#  . 24002631 ♦ 033  C-. 1 4001725+03#-. 13998282+03T" 

0. 262670570e-01  0. 1 720905304e-01 


£xtt04ftd.lf)ll£Xftl 

TINE  ANB  PAGE  FAULTS  FOR  SESOL  NETHOB  ARE  AS  FOLLOWS: 

CPU  tloe  *  2.T08744  seconds;  Page  faults  «  49 

THE  SOLUTION  IS  AS  FOLLOWS: 

C  . 1 599999999+00002#  .1600000001+0 00023 
C  .2479670000-00048#  .2479670000-000483 

C-. 1 200000001 *00003#- .11 99999999*000033 
C  .3051400000-00048#  .3051400000-000483 

C  .2399999999+00003#  .2400000001+000033 
C  .1920100000-00048#  .1920100000-000483 


C-. 1400000001 +00003#-. 1399999999+000033 
l  .1255600000-00048#  .1255600000-000483 


The  next  example  uses  an  Hilbert  matrix  of  order  10  for  the J 
matrix  Of  coefficients.  The  single  precision  and  single"* 
precision  Interval  cases  could  net  find  a  solution.  The  extended 
Interval  results  had  Interval  widths  of  the  magnitude  10++-29  to 
10++-25.  '1 


Hilbert  Natrix  of  Order  10 


Veeter  of  Constants 


000000000 


STOP 


siQslt.ectsiiifto 

***  ZERO  DIAGONAL  ENCOUNTERS 0  DURING  EQUATION  SOLUTION 
EQUATION  NUMBER  »  9 


fiflUbU-fCMllifiO 

TIME  AND  PAGE  FAULTS  FOR  SESOL  METHOD  ARE  AS  FOLLOWS: 
CPU  tine  *  0.2 A3 050  seconds*  Page  faults  « 

THE  SOLUTION  IS  AS  FOLLOWS: 


0. 1 0000000071 884660358d*03 
0.79200001 3378321 1 504 1 d*0  5 
0. 2 52 2 5 200583 82703 34 24 d* 07 
0. 9*09600264425674 991 8d*07 
0. 43758001345 532895439d*07 


-0.49500000625171 377493d*04 
-0. 60060001 220562 85881 6d*< 
-0.6306300160861 38S3932d*0?f 
-0.87516002559459038221 d*0?l 
-0. 9237 800 2962 5 3089 27 62d*( 


Si0ai*-E£*Giii«lL.l0t*£N«i 

STOP  ***  ZERO  DIAGONAL  ENCOUNTERED  DURING  EQUATION  SOLUTION 
EQUATION  NUMBER  *  6 


£jl£I>Jte4_10i££XJi 

TIME  AND  PAGE  FAULTS  FOR  SESOL  METHOD  ARE  AS  FOLLOWS: 

CP*'  tine  *  12.  364521  seconds*  Page  faults  *  93 

THE  SOLUTION  IS  AS  FOLLOWS: 


I 


2 


1 


C  *9999999999 *0000 2*  .1000000001*000033 
C  • 2961 61 2465-00025#  .2961612466-000253 


0*4950000001  *00004#-.  4949999999*000043 
C  .3654013424-00025#  .3654013425-000253 

C  .7919999999*00005#  .7920000000*000053 
C  .2360920776-00025#  .2360920777-000253 


C- • 6006000001 *00006#- . 6005999999*000063  ~ 1 

C  .1037601650-00025#  .1037601651-000253  1 


C  .252251 9999*00007#  . 25225200014Q00G73 
— C  . 34 5 8623 775-00024*  . 3*586? 3774-00076 3 

C-. 4306100001 40000  7#- .430629999940000  73 
E  .r928907tl3T-0002T#  .92890711 32-000273 

C  ,9609599999400007^-. 8751 5999994000073 
C  • 2089581 81 3-00027#  .2089581814-000273 

0.8751 400001 40000 7#-. 8751 5999994000073 
C  .4035143144*00028#  .4035143145-000281 

C  .4375799999400007#  .43758000014000073 
,  C  .6600675959-00029#  .6600475960-000293 

C-. 9237800001400006#-. 92377999994000063 
t  .1463739935-00029#  .14637399364000293 


seu*f 

The  spline  pragrt*  solve*  a  system  of  linear  equations  using  i 
iterative  technique  to  calculate  the  moments  at  ¥"‘*91  of  "d® 
paints  In  order  to  fit  a  cubic  spline  to  those:  data  points.  Th 
first  example  uses  4  (X#Y)  data  points.  The  single  preelslo 
Interval  widths  were  of  the  magnitude  10**-S.  The  extendi 
Interval  widths  were  of  the  magnitude  10**-53. 

(X#  Y)  DATA  POINTS!  ~ 


X  Y 

1.6  1 

5.4  2 

7  1 

8.2  1 


sioaie-ttatiiiao 

TINE  AND  PAGE  FAULTS  FOR  SPLINE  ARE  AS  FOLLOWS: 

CPU  time  *  0.003969  seconds#  Page  faults  *  1 

INTERPOLATED  VALUES 

Y 

0.6069527492*400 
0.18426344  25*401 
0.2160504758*401 
0.1000000000401 
0.1135431752*401 


X 

0. 1 OOOOOOOOOe+OI 
0.3000000000*401 
0.5000000000*401 
0.7000000000*401 
0.9 OOOOOOOOOe+OI 


Ccuble_Erfi£liiflo 


TIME  AND  PAGE  FAULTS  FOR  SPLINE  ARE  AS  FOLLOWS: 


CPU  tine  ■  0.007115  second*; 

INTERPOLATED  VALUES 
X 

0. 1 OOOOQOOOOOOOOOOOOOOd+Ol 
0.  300000000000000000 00d+0 1 
0. 500000000000000000 00d+01 
0. 7 000000 000000 00000 OOd +01 
0.900000000000000000 00d+01 


Page  faults  *  1 


Y 

0.6069527477460501 562 5d+00 
0. 1 84263443551 19746667d+01 
0.21605047819613091100d+01 
0. 1 OOOOOOO00OOOOOOO0OOd+O1 
0. 1 1 354 3 1 77301 90776 109d+ 01 


2iQ9ifi.eCfi£ilifiQ.lQi££K6i 
TIME  AND  PAGE  FAULTS  FOR  SPLINE  ARE  AS  FOLLOWS: 

CPU  tine  *  0.800636  seconds;  Page  faults  *  4 

INTERPOLATED  VALUES 

X  «  C  .1000000000000*01/  .1000000000000*010 

0. 0000000000e+00 

Y  ■  C  .60695 162415  50*00#. 60695387423304*003 

0.11 250 37670*- 05 

X  -  C  .3000000000000+01/  .3000000000000+01 3 

O.OOOOOOQOOOe+OO 

Y  •  C  .1842632219195+01/  .1842636644841+013 

0.2212822437*- 05 

X  ■  t  .5000000000000+01/  .5000000000000+013 

0. 0000000000e+00 

Y  *  C  .2160503506660+01/  .2160506069661+013 

0.1 281 499863*- 05 

X  »  C  .7000000000000+01/  .7000000000000+013 

0. 0000000000e+00 

Y  «  C  .1000000000000+01/  .1000000000000+013 

0.00 00000000*+ 00 

X  ■  C  .9000000000000+01/  .9000000000000+013 

0.0000000000e+00 

Y  *  C  .1135428726673+01/  .1135434836150+013 

0. 3054 738 04 5 e- 05 


E  8li0dtd.lt)  14CX61 


0 


TIME  AND  MAGE  FAULTS  FOR 

CPU  time  «  5. 429209 

TWTE1YP0L  ATED  VALUES 

X  *  t  .1000000000+00001# 
C  .0000000000+00000# 

Y  «  c  .6069527477+00000/ 

C  .1775000000-00053/ 

X  *  C  .3000000000+00001/ 
C  .0000000000+00000/ 

Y  *  t  .1842634435+00001/ 

E  .3700000000-00053/ 

X  *  t  .5000000000+00001/ 
C  .0000000000+00000/ 

Y  «  c  .2160504781+00001/ 

C  .2200000000-00053/ 

X  ■  C  .7000000000+00001/ 
C  .0000000000+00000/ 

Y  *  C  .1000000000+00001/ 

C  .0000000000+00000/ 

X  «  C  .9000000000+00001/ 
C  .0000000000+00000/ 

Y  *  C  .1135431773+00001/ 

C  .3400000000-00053/ 


SPLINE  ARE  AS  FOLLOWS: 
seconds!  Page  faults  « 


.1000000000+000013 
.0000000000+000003 
.  606952'7478+000003 
.1750000000-000533 

.3000000000+000013 

.0000000000+000003 

.1842634436+000013 

.3700000000-000533 

.5000000000+000013 

.0000000000+000003 

.2160504782+000013 

.2200000000-000533 

.7000000000+000013 
. 0000000000+000003 
.1000000000+000013 
.0000000000+000003 

.9000000000+000013 

.0000000000+000003 

.1135431774+000013 

.3400000000-000533 


The  nest  example  uses  11  (X/Y)  data  points.  The  single  precision 
interval  version  of  the  program  could  not  find  a  solution#  while 
the  extended  interval  version  could  find  a  solution  with  interval 
widths  of  the  magnitude  10++-51  to  10++-50.  IX#Y)  DATA  POINTS: 


X 

Y 

1.0 

1.008 

10 

20.183 

19 

339.096 

28 

58.69 

37 

85.48 

46 

106.7 

55 

132.91 

64 

156.9 

73 

180.88 

82 

207.21 

91 

231 

SiotU.EccfiliifiQ 


TIME  AND  PAGE  FAULTS  FOR  SPLINE  ARE  AS  FOLLOWS: 


j  ifr  <6  saefcfca  ■Mfewmaji 


CPU  tiae  ■  0.00988S  seconds#  Page  faults  *  1 

INTERPOLATED  VALUES 


X 

0.1 OOOOOQOOOe+OI 
0.5  000000 000e+  01 
0.1 000000 000e+ 02 
0. 1 500000000e+02 
0.2000800000e+02 
0.2500000000e+02 


Y 

0. 1 008000001e+01 
0.951 034  7366e+01 
0.  201 8300009«+02 
0. 308565 4688e+02 
0. 410821 4760»+02 
0. 51352571 01e+02 


fiQu6Le_Ctsfii*ifiQ 


TIME  AND  PAGE  FAULTS  FOR  SPLINE  ARE  AS  FOLLOWS: 


CPU  tiae  »  0.033277  seconds;  Page  faults  *  2 

INTERPOLATED  VALUES 


X 

O.1OOO0O0OOOOOOOOOOOOOOd+O1 
0. 50000000000000000000 0d+01 
0. 1 00000000000000 00000 0d+01 
0. 1 50000000000000 000000d+02 
0. 20000 0000 00 0000 00000 Od+ 02 
0.2 5 000 0000 00000000000 0d+02 


Y 

0. 1 00 799999 999999 99999d+01 
0.951 034746919755 31 663d+01 
0. 201  82999999999999999d+01 
0. 410821 47846906934087d+02 
0.410821 47 846906934087d+02 
0.5 13525 71 2591614 17030d+02 


siQ9ls-ect£iiifio.iQifir)tAl 

SINGLE  PRECISION  INTERVAL  HAS  BROKEN  DOWN  DUE  TO  BOUNDS  FAULTS 
(see  attachaent) 


EAltOdCd-lDiflttll 

TIME  AND  PAGE  FAULTS  FOR  SPLINE  ARE  AS  FOLLOWS: 

CPU  tiae  »  31.215525  seconds#  Page  faults  *  5 

INTERPOLATED  VALUES 

X  *  C  .1000000000+00001#  .1000000000+000013 
C  .0000000000+00000#  .0000000000+000003 

Y  «  C  .1008000000+00001#  .1008000000+000013 

C  .0000000000+00000#  .0000000000+000003 

X  *  C  .5000000000+00001#  .5000000000+000013 
t  .0000000000+00000#  .0000000000+000003 

Y  ■  C  .9510347469+00001#  .9510347470+000013 

C  .1518000000-00051#  .1518000000-000513 


X  *  C  .1000000000*00002/  .1000000000*000023 
C  . 0900000000*00000/  .0800000000*000001 
Y  »  C  .2018300000*00002/  .2018300000*000021 
C  .0000000000*00000/  .0000000000*000001 


X  «  C  .1500000000*00002#  .1500000000*000021 
C  .0000000000*00000/  .0000000000*000001 

Y  *  C  .3085654676*00002/  .3085654677*000021 

l  .6490000000-00051/  .6490000000-000511 

X  *  C  .2000000000*00002/  .2000000000*000021 
C  .0000000000*00000/  .0000000000*000001 

Y  *  C  .4108214784*00002/  .4108214785*000021 

t  .3790000000-00051/  .3790000000-000511 

X  «  C  .2500000000*00002/  .2500000000*000021 
C  .0000000000*00000/  .0000000000*000001 

Y  *  C  .5135257125*00002/  .5135257126*000021 

C  .1165000000-00050/  .1165000000-000551 

The  Matrix  inversion  program  finds  the  inverse  of  a  square 
matrix.  The  first  example  finds  the  inverse  of  an  Hilbert  Matrix 
of  order  4.  The  single  precision  interval  widths  were  of  the 
magnitude  from  10**-3  to  1.  The  extended  interval  widths  were  of 
the  magnitude  from  10**-50  to  10**-47. 

siDfiU.emiiifio 

TIME  A  TIME  AND  PAGE  FAULTS  FOR  THE  INVERSION  ARE  AS  FOLLOWS: 

CPU  tine  «  0.006392  seconds#  Page  faults  *  0 

INVERSE  OF  HIL8ERT  MATRIX  OF  ORDER  4 
ROW  1 

0. 1 600011 9e*02  -.1 20001 30e*03  0. 24000305e*03  -. 1 40001 96e*03 

ROW  2 

-• 1 20001 30e*03  0. 1 20001 4 1 e*04  -. 27000332e*04  0. 16800212e*04 

ROW  3 

0.2 4 000308a *03  -,27000333e*04  0. 64800785e*04  -«42000503e*04 

ROW  4 

-• 1 40001 98e*03  0. 1 680021 4e*04  -. 42000505e*04  0.28000323e*04 


TIME  AND  PAGE  FAULTS  FOR  THE  INVERSION  ARE  AS  FOLLOWS t 
CPU  1 1  hr  *  0.00209  seconds;  P age  faults  »  2 

INVERSE  OF  HILOERT  MATRIX  OF  ORDER  4 


ROW  1 

- . 1 20000000000000021 d+03 
-. 1 40000000000000031 d+03 


0. I20000000000000023d+04 
0.1 68000000000000034 d+04 


-. 2700000Q0000000054d+04 
4 2000000000000008 Id *04 

0. 1 68 00000000000003 5d+04 
0. 2 8000000000000005 2d+ 04 

Sioalfi-Etetiiiao-Iotfiivil 

TIME  AND  PAGE  FAULTS  FOR  THE  INVERSION  ARE  AS  FOLLOWS: 

CPU  tine  *  0.363970  seconds!  Page  faults  *  2 

INVERSE  OF  HILBERT  MATRIX  OF  ORDER  4 


0. 1 60000000000000020d+02 
0. 2 4 00000 000 000 0004 9d *03 

ROW  2 

-.  1  20000000000000021 d+03 
-• 2 7 00000 000000 000 5 3 d+04 

ROW  3 

0. 24000000000000005 1 d+03 
0. 648000000000000 127d+04 

ROW  4 

-.1 4 00000 000000 000 33 d+03 
-. 4 2 00000 000000 000 82 d+ 04 


ROW  1 


l  .15999083+02*  .16000938+023 
0.9272098541e-03 


C-. 12001072+03*-. 11 998957+033 
0. 1 057004929e-01 


C  .23997471+03*  .24002608+033 
0.101 4995575a -01 


C-. 14001772+03*-. 13998284+033 
0.1 743507385e-01 


ROW  2 

C-. 12001029+03*-. 11998998+033  C  .11998861+04*  .12001176+043 
0. 1014995575e-01  0.1 1 56997681e+00 


C-. 27002862+04*-. 26997238+043 
0. 281 1 2 79297a +00 


C  .16798125+04*  .16801943+043 
0.1 980 4 16748a +00 


ROW  3 


C  •23997635+03#  .24002433+033 
0.2398204803* -01 


C-. 27002782+04#-. 2699731 3+043 
0.2733917236*+00 


C  .64793482+04#  .64806767+043 
0. 66424 56055* +00 


C-. 42004596+04#-. 41995576+043 
0.4 5095825 20*+00 


ROW  4 


C-. 14001562+03#-. 13998484+033 
0. 1 538562775e-01 


.16798277+04#  .16801786+043 
0.175384521  5*+00 


C-. 42004345+04#-. 41995821+043  C  .27997164+044#  .28002950+043 
0. 4261 47 4609* +00  0. 2892761 230*+00 

£iieodid.£C8£iiluUQmKil 


TIME  AND  RAGE  FAULTS  FOR  THE  INVERSION  ARE  AS  FOLLOWS: 


CPU  t1«*  «  3.018572  seconds#  Page  faults  *  3 

INVERSE  OF  HILBERT  MATRIX  OF  ORDER  4 
ROW  1 

f  .1599999999+00002#  .1600000001+000023 
C  .4854000000-00050#  .4854000000-000503 

C-. 1 200000001+00003#-. 1 199999999+000033 
C  .5527000000-00048#  .1341808000-000483 

C-. 1 400000001+00003#-. 1 399999999+000033 
C  .8760000000-00049#  .8760000000-000493 


ROW  2 


C-. 1 200000001+00003# -. 1 1 99999999+000033 
t  .5258000000-00049#  .5258000000-000493 

C  .1199999999+00004#  .1200000001+000043 
C  .5990000000-00048#  .5990000000-000483 

C-* 2700000001 +00004#-. 2699999999 +000043 
C  .1453800000-00047#  .1453800000-000473 

t  .1679999999+00004#  .1680000001+000043 
C  .9493000000-00048#  .9430000000-000483 

ROW  3 

C  .2399999999+00003#  .2400000001+000033 


C  .1249800000-00048,  .1249800000-000483 

0.2700000001*00004,-. 2699999999*000043 
C  .1423300000-00047,  .1423300000-000473 

C  .6479999999*00004,  .6480000001*000043 
C  • 3455500000-00047,  .3455500000-000473 

O. 4200000001*00004,-. 41 99999999*000043 
C  .2256400000-00047,  .2256400000-000473 

ROW  4 

0.1 400000001*00003, -.1399999999*000033 
C  .8108900000-00049,  .8089000000-000493 

C  .1 679999999*00003,-. 1 399999999*000033 
C  .9213000000-00048,  .9213000000-000483 

C-. 420000 0001*00004, -.41 99999999*000043 
C  .2236900000-00047,  .2236900000-000473 

C  .2299999999*00004,  .2800000001*000043 
C  .1460700000-00047,  .1460700000-000473 

The  next  example  Inverts  an  Hilbert  matrix  of  order  0.  The 
single  precision  Interval  version  could  not  find  a  solution.  To 
conserve  space  the  extended  Interval  results  ore  not  shown  but 
may  be  found  In  the  attachment  to  this  letter.  The  extended 
Interval  widths  ranged  from  10**-36  to  10**-28.  Also  not  that 
the  single  precision  results  are  meaningless. 

SiQaie.Ec8£iiiao 

TINE  AND  PAGE  FAULTS  FOR  THE  INVERSION  ARE  AS  FOLLOWS: 

CPU  time  *  0.065202  seconds!  Page  faults  *  1 

INVERSE  OF  HILBERT  NATRIX  OF  ORDER  10 
ROW  1 

0. 666 2 8 76 4e *02  -. 19763846e*04  0*1 7260560e*05  -.62370884e*05 

0.95071 291e*05  -.29811917e*05  -.5256841 7e*05  0. 1 2496660e*04 

0.68708063e*05  -.35645043e*05 

ROW  2 

-. 1 9894290e*04  0.75388504e*05  -.72811 225e*06  0. 281 781 70e*07 

-.46580271e*07  0. 20127897e*07  0.23197084e*07  -. 1 0075493e*07 

-.21445800e*07  0. 13152878e*07 


0.1 76191 20*405  - 

0.5 676921 0e4Q8  - 

0.54030478*407  - 

ROW  4 

-.65350269*405  0 

-.28589484*409  0 

0.10984572*409  - 

ROW  5 

0.10526792e406  - 

0.68104005*409  - 

-.71255193*409  0 

ROW  6 

-.42870195*405  0 

-.67411450*409  0 

0.1 5614960e4l0  - 

ROW  7 

-. 5889091 6e 405  0 

-.16748904e409  0 

-.1031121 8e4lO  0, 

ROW  8 

0.35385499e405  - 

0.96178677*409  - 

-.97000460e409  0 

ROW  9 

0.36014969*405  - 

-*77517486*409  0 

0.16805552*410  - 

ROW  10 

-.25268021*405  0 

0.20763149*409 
-.64172422*409  0, 


TIME  AN*  PA6E  FAULTS 


.73787954*406  0.76123086*407  -.31378729*408 
.^2tttf6T*4©8  -.24285263*408  0.27813182*408 
.85081013*407 


29248154*407  -.32090695*408  0.14215210*409 
21212882*409  0.10197568*409  -.24367823*409 
72728300*407 


.50690238*407  0.60455295*408  -*29635527*409 
63099936*409  -.21897011*409  0.94184239*409 
18048439e4Q9 


25873252e407  -*38849799*408  0.23780274*409 
75598362e489  0.35379525*409  -.17238461*410 
4748691 0e409 


25351663*407 

25520953*409 

32840154*409 


85312601*406 

46059757*409 

23783952*409 


-.25165329*408 

-.65576277*409 


-.36485157*407 

0.24735363*409 


0.94883239*408 

0.11986492*410 


-. 2871 3407e409 
0.49803286*409 


0.16378166*409 
0. 4 980328 6e 40 9 


-.26486693*408 

0.43887222*409 


24  51 3788e407  0.41530602*408 
15891991*410  0.98973335*409 
35773168*409 


71 491 391 e406  -.91393845*407 
14881434*410  -.79604687*409 
61501253*409 


FOR  THE  INVERSION  ARE  AS  FOLLOWS: 


CPU  tl**  • 


0.104900  seconds;  Pag*  faults  * 


3 


INVERSE  OF  HUBERT  MATRIX  OF  ORDER  10 


ROW  1 

0. 1 000000022533443856+03 
0. T970000406434  825696+05 
0. 25225201 74135427266+07 
0.9409600779054336876+07 
0. 4375800392929251306+07 

ROW  2 

-. 4 950000 192340670326+04 
-• 5880609346744003746+07 
-.2081079148514068416+09 
-.8324316664286631 986+09 
“•38988381 3A99277A61 6+09 

ROW  3 

0.7920000405979467106+05 
0.1129075273159667926+09 
0.  42810771 13275  98598d+10 
0.8506555906441 023236+10 

ROW  A 

-.6006000366477685106+06 
951 3 504 660209 91 662 d+09 
-.378756406265519956d+11 
“• 161 602 7 3391 9262670 d*1 2 
-.7884317077255198616+11 

ROW  5 

0.2522520173811493596+07 
0. 4281 0771 13044379456+10 
0. 1 74 75 2989800 3 56975 d*1 2 
0.7712857751153455496+12 
0. 3820861 34606397841 d+1 2 

ROW  6 

-.6306300475570232846+07 
1 123782 745435 5421 5d+1 1 
“,4772330729331 796106+1 2 
“• 21 21035880669498946+1 3 
-.1064382802010233436+13 

ROW  7 

0.96096007771 9259721 d+07 
0. 177585421 9924699246+11 
0.771 2857750835950356+1 2 


-.49500001924*0866076+04 
- . 6006000  367017 1 1 2 30d +06 
-.63063004  765925095  96+07 
-.8751600750492890226+07 
-.9237800862054949296+06 


0. 32670001 6 423 1968 76 d+06 
0.475675231 3077461 566+08 
0. 53513444 06421998166+09 
0. 7701408639879927906+09 
0.831 4020734901691456+08 


“.58806003465721 7201 6+07 
-.9513504660476412746+09 
-.1123782745723314856+11 
-.  1 829084554970765666+1 0 


0.4 75675231 279601 474d *08 
0.8245037395968065896+1 0 
0.101 00170  8  533  9165096+12 
0. 1 5290794 73735490216+1 2 
0.1 70714 557978861 971d+11 


-.20810791 48330695356+09 
-.3787564062540242346+11 
-.4772330729436236826+12 
-. 7358695921054678316+1 2 
-.8322334682590271586+11 


0.5351344405804550026+09 
0.1010017085291161436+12 
0. 1 301 544744679337336+1 3 
0.2037792714620523886+13 
0.2330253706804890816+12 


-.8324316663114912976+09 

-.1616027339083218876+12 

-.2121035880629325356+15 


0.3480474 2*4 SI 023403d* 13  3363975272221453224*1 3 

0^*608701 751 2136394*1  3  -.3883756172010740314*12 

ROM  8 

-.675-1600748539571 20d*07 
-•  1643-504262746637534*11 
-.7358695920625744224*12 
-.3343975272166389174*13 
-.1723286437534171124*13 

ROW  9 

0. 4375800391 833  01 7804*07 
0.8506555905261 884494*10 
0.3820841345782  74924  4*12 
0. 1 76608701 7457955304*1 3 
0.9123281131966160424*12 

ROW  10 

-.923780085950484804 d*06  0.8314020733189373224*08 

-.1829084554686345134*10  0.1707145579568329754*11 

-.8322334681863034624*11  0. 233025370665754467d*1 2 

-.3883756171842535554*12  0.380449583689833549d*1 2 

-.2021138411117776204*12  0.4491418687068541884*11 
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SINGLE  PRECISION  INTERVAL  HAS  BROKEN  DOWN  DUE  TO  DIVISION  BY  ZERO 
(sec  attachment) 

£lt£0d*d.f£6£i5iflfi-lO£££V6l 


The  extended  interval  result*  #,re  not  shown  here  in  order  to 
conserve  space.  See  the  attachment  for  the  results. 
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The  FFT  program  supplied  by  WES#  once  Interfaced  and  running 
correctly  on  ftultics#  was  modified  to  print  out  the  central 
processor  time  used  and  page  faults  generated  during  various 
stages  of  the  overall  program.  These  stages  were  initialisation# 
the  FFT  subroutine#  and  output. 

The  FFT  program  was  then  converted  to  double  precision.  The  only 
difficulty  encountered  during  this  stage  of  the  work  was  that 
complex  arithmetic  is  not  supported  in  double  precision  in 
Nultics  fortran  and#  therefore#  had  to  be  simulated.  Slmiliarly# 
during  the  conversion  to  Interval#  complex  arithmetic  again  had 


-. 38988381 34267851994*09 
-. 788431 7076448163834*1 1 
-. 1 064382801956827374*1 3 
- . 1 7232864  3750974 7904*1 3 
-.2021138411142462664*12 


0. 7701 40863861 501 4364*09 
0. 1 5290796736041 53744*1 2 
0. 20377927145481 38444*1 3 
0. 3267861690799447164*1 3 
0. 3804495836999449224*1 2 


to  be  simulated.  further#  in  the  driver  routine#  a  call  to  ATAN2 
with  arguments  1.0  and  0.0  was  replaced  by  the  value  such  a  call 
returns#  one  half  pi.  The  value  returned  by  ATAN2  was  net  the 
sinisus  interval  representation  and#  when  used  in  subsequent 
calls  to  the  SIN  function#  resulted  in  unacceptably  large 
intervals  being  returned.  The  only  modification  made  to  the 
Interval  version  of  the  program  before  executing  it  utilizing  the 
S4  decimal  package  was  te  insert  a  cal  to  a  subroutine#  GENPI#  to 
obtain  a  5i  decimal  digit  precision  value  for  pi. 

The  single  precision#  double  precision#  interval#  and  56  decimal 
interval  versions  of  the  program  were  executed  using  the  original 
real  coefficients  supplied  by  WES  and  atso  using  real 
coefficients  in  the  form  of  a  square  wave  as  suggested  by  WES. 
Other  real  coefficients  were  also  tried  but  the  results  added 
little  additional  information  for  analysis. 

Using  the  real  coefficients  suplied  by  WES#  all  complex 
coefficients  but  one  should  have#  theoretically#  been  zero.  The 
following  table  has  example  values  computed  in  each  of  the  four 
different  runs. 


single  precision  0.0265  0.0428  0.2930  0.3623 
double  precision  0.3113  0.0460  0.3105  0.6678 
standard  interval  0.8222  2.5133  11.1639  14.4994 
56  decimal  interval  260.8131  180.6730  25.3920  466.8781 
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A  large  proportion  of  time  had  been  spent  in  an  attempt  to 
understand  the  applications  programs.  The  logic  was  carefully 
followed  using  the  given  data.  Throughout  the  program#  the 
language  of  the  program  was  updated  (FORTRAN  IV  as  apposed  to 
FORTRAN  ID#  detected  inefficiencies  removed  (for  example# 
unnecessary  variables#  GO  T0*s  to  60  T0*s#  unused  labels#  GO  TO's 
to  the  next  executable  statement#  etc.)#  and#  in  general#  made 
more  readable.  This  time  proved  beneficial  not  only  in 
facilitating  the  conversion  of  the  routines  to  interval 
arithmetic  but  also  in  that  it  exposed  some  errors  in  the  program 
(double  Init ial ization  of  some  variables#  an  integer  function 
which  should  have  been  a  real  function#  etc.)  These  errors  were 
corrected  and  duly  reperted  to  WES.  It  should  be  noted  that  all 
testing  was  done  using  the  corrected  version  of  the  original 
program  rather  than  the  heavily  modified  version.  It  was  felt 
that  testing  conditions  should  approximate  the  working  conditions 
at  WES  as  closely  as  possible. 

Once  the  program  was  successfully  Interfaced  with  Multics  and 
reproducing  the  desired  eutput#  a  program  of  testing  was 
outlined.  This  consisted  of  varying  a  set  of  three  Inputs 
(cohesion#  unit  weight  end  phi)  for  the  program  plus  or  minus  ten 
percent#  singly  and  in  conduction  with  each  ether.  A 


ceapr*ti*ni1v«  analysis  was  run  consisting  of  81  separate  runs 
wtth^H^ comparisons  of  3*  and  were  submitted  to  WES  In  July# 
1977*  The  largest  probleo  encountered  at  this  stage  was  the 
production  of  summary  reports  which  presented  the  analysis  In  a 
readabt e  fens.  The  report  was  finally  configured  to  consist  of 
27  comparisons  of  three  runs  each  In  regard  to  central  processing 
unit  tine#  paging  and  fluctuation  of  the  output  data  (Table  1). 
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Configuration  of  the  27  comparisons  of  the  test  runs.  For 
example#  run  one  compares  the  three  runs  cohesion  elOX  phi  elOX 
unit  weight  -10X#  cohesion  elOX  phi  +10X  unit  weight 
-OOX# cohesion  +1 OX  phi  +1QX  unit  weight  +10X. 

cohesion  +  10%  phi  +10X  unit  weight  t-10%#  no  flux#  ♦10X3 
cohesion  elOX  phi  -00%  unit  weight  C-10X#  no  flux#  ♦1QX3 
cohesion  +10X  phi  -10X  unit  weight  C-10X#  no  flux#  +10X3 
cohesion  -00%  phi  elOX  unit  weight  E-10X#  no  flux#  +10X3 
cohesion  -SOX  phi  -GOX  unit  weight  C-10X#  no  flux#  +10X3 
cohesion  -OOX  phi  -10X  unit  weight  C-10X#  no  flux#  el 0X3 
cohesion  -10%  phi  410%  unit  weight  C-10X#  no  flux#  +10X3 
cohesion  -10%  phi  -OOX  unit  weight  C-10X  no  flux#  elOXO 
cohesion  -10X  phi  -10%  unit  weight  C-10X#  no  flux#  +10X3 
phi  +  10%  unit  weight  *10%  cohesion  C-10X#  no  flux#  +10X3 
phi  +  10%  unit  weight  -00%  cohesion  C-10X#  no  flux#  +10X3 
phi  -00X  unit  weight  ♦  IQX  cohesion  C-10X#  no  flux#  e10X3 
phi  -00 X  unit  weight  -0OX  cohesion  C-10X#  no  flux#  +10X3 
phi  -00X  unit  weight  -10X  cohesion  C-10X#  no  flux#  +10X3 
phi  -10X  unit  weight  +  10%  cohesion  C-10%#  no  flux#  +10X3 
phi  -10X  unit  weight  -OOX  cohesion  C-10X#  no  ftux#  +10X3 
phi  -10X  unit  weight  -10X  cohesion  [-10X#  no  flux#  +10X3 
unit  weight  +10X  cohesion  -OOX  phi  C-10%#  no  flux#  +10X3 
unit  weight  +  10%  cohesion  -10X  phi  C-10X#  no  flux#  +10X3 
unit  weight  -OOX  cohesion  elOX  phi  C-10%#  no  flux#  elOX3 
unit  weight  -OOX  cohesion  -OOX  phi  C-10%#  no  flue#  *10X3 
unit  weight  -OOX  cohesion  -10X  phi  C-10X#  no  flux#  +10X3 
unit  weight  -10X  cohesion  el  OX  phi  C-10%#  no  flux#  +10X3 
unit  weight  -10X  cohesion  -OOX  phi  C-10%#  no  flux#  +10X3 
unit  weight  -10X  cohesion  -10%  phi  C-10%#  no  flux#  +10X3 
unit  weight  +  10%  cohesion  elOX  phi  C-10%#  no  flux#  +10X3 

At  this  time  the  application  programs  were  converted  to  double 
precision  and  the  same  testing  procedure  as  outlined  above  was 
applied.  No  significant  problems  were  encountered  during  the 
conversion.  The  output  of  the  two  tests  were  given  to  the  same 
precision  as  that  given  In  the  report  supplied  by  WES.  The 
summary  report  along  with  each  run  and  data  was  sent  to  WES  for 
further  evaluation. 

luring  the  testing  it  was  noted  that  one  of  the  inputs  to  be 
varied#  cohesion  of  the  first  soil#  was  zero.  As  0-10X  *  0+10%  * 


0  m  fluctuation  was  produced  by  this  ptriMttr.  A  n»n*itro 
value  uaa  recieved  froo  WES  and  the  testing  procedure  applied 
again.  The  output  uaa  increased  to  8  digits  of  aecuracyr  the 
oaslouo  for  single  precision  FORTRAN  on  Multies#  for  this  set  of 
tests. 

An  analysis  of  the  test  output  discerned  no  significant 
difference  in  accuracy  betueen  the  single  and  double  precision 
(Table  2). 
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Saople  values  froo  the  case  phi-QOX#  unit  weight-OOX#  cohesion 
C-1 OX#  no  flux#  *1 0X3  for  single  precision  ($R>#  double  precision 
(OR)#  single  precision  interval  (SRI)#  and  extended  Interval 
(El).  The  values  shoun  are  for  CP. 


llfll 

SR  “1 .6056520 

OP  -1.60563196598009845 

SRI  C-2.021 28 12#-1.258 56503 
El  C-1. 6056320#-1. 60563203 


-1.3048941 

-1.30489416517190121 
C-1. 6226176#-1. 05241123 
C-1. 3048741 #-1.30489433 


439.65 

439.65 

C435.1 4#444.21 
C439.65#439#653 


oft.ilux 


-1.6069299 

-1.60692993603933327 
C-2.0217068#-1. 260441 13 
C-1. 6069299#-1. 60692993 


-1.3060394 

-1.30603947523241611 
C-1. 6231 307#-1. 03401 423 
C-1. 30601 94#-1. 30603963 


439.63 

439.63 

C435.1 3#444. 183 
C439.63#439.633 


zlQl 


-1.6082275 

-1.60822753256086878 
C-2. 0220372# -1.26238423 
C-1. 6082275#-1. 60822 753 


-1.3071844 
-1.3071840917743123 
C-1. 6235718#-1. 03567053 
C-1. 3071643#-1. 3071 8453 


439.60 
439.60 
C435. 11  #444.1  4l| 
C  43  9 .60  #4  3  9 .6031 


Better  than  50X  of  the  output  agreed  to  the  full  eight  digits# 
the  rest  differed  by  no  more  than  $3  in  the  eighth  digit.  This 
uas  attributed  to  the  fact  that  the  Heneyvell  68/80  does  all 
floating  point  cooputations  in  double  precision. 

Concurrent  uith  the  above  testing  uas  the  trens foroati on  of  the 
applications  prograos  into  interval  arithoetic.  Several  problems 
occurred  during  this  period  which  greatly  haopered  progress.  The 
first  probleo  was  that#  apparently#  the  given  Interval  routines 
to  rood  in  data  were  designed  to  read  froo  one  file  without 
interruption#  i.e.  file  5  in  FORTRAN.  The  applications  and  then 
reading  froo  it.  The  second  probleo#  which  interacted  uith  the 
first  to  create  a  ouch  larger  probleo#  was  that  a  bug  in  the 


Multlcs  FORTRAN  I/O  was  struck  upon.  Noroally  when  «  rocerd  of# 
soy#  2 90  c ho  roc tors  Is  road  f roo  a  fllo  containing  80  characters# 
the  renalnlng  176  charactors  aro  padded  with  blanks*  In  this 
case  they  were  not/  an  error  oessago#  "record  too  short**  was 
produced  Instead.  These  p rob tens  were  solved  and  work  begun  on 
the  Interval  version  of  the  testing. 

Testing  procedures  for  the  Interval  version  were  the  saoe  as 
those  for  single  and  double  precision.  During  the  testing  of  the 
Interval  version  two  probleos  worth  noting  were  encountered.  The 
first  probteo  concerned  the  oanner  In  which  the  algorltho  was 
coded.  The  second  problem  Involved  the  Identification  of  data 
sensitivity.  This  was  ouch  oore  difficult  to  handle#  taking  sooe 
effort  even  to  deternlne  the  nature  of  the  source.  Once  the 
nature  of  the  probleo  was  discovered  It  took  an  even  larger 
portion  of.  Has  to  track  down  the  source  of  the  probleo  owing  to 
the  near  loposslbl 11 ty  of  following  the  toglc  of  the  prograos. 
The  first  probleo  was  a  result  of  the  way  In  which  the  Interval 
package  evaluates  the  test  value  In  an  arthoetlc  IF  stateoent. 
when  an  arlthoetlc  IF  Is  encountered  with  an  Interval  test  value 
the  Interval  Is  converted  to  a  real  <1.e.  the  otdpolnt  Is  taken) 
and  the  branch  evaluated  as  noroat.  The  difficulty  was  to  be 
taken  enty  If  the  test  value  was  positive.  Certain  Intervals 
were  passing  along  this  branch  whose  oldpolnt  was  Inneed 
positive  but  whose  left  endpoint  was  negative.  The  Interval  was 
subsequently  used  as  a  divisor/  as  It  contained  tor o  a 
aero-divide  error  was  flagged  by  the  Interval  arlthoetlc 
routines.  The  probleo  was  solved  sloply  by  recoding  the  branch 
as  a  logical  IF  stateoent  which  Is  evaluated  In  a  different 
oanner  and  avoids  this  probleo. 

The  second  probleo#  as  stated  before#  was  ouch  oore  difficult  to 
handle.  During  the  testing  It  was  noted  that  sooe  of  the  runs 
contained  Intervals  which  were  "blowing  up**#  that  Is#  the  width 
of  the  Intervals  were  beceolng  quite  large.  After  a  perusal  of 
the  output  a  correlation  was  discovered  between  the  blownup 
Intervals  and  the  varying  of  unit  weight  by  -10X:  all  runs 
which  varied  unit  weight  by  -10X  contained  blownup  Interels! 
Resiring  to  know  with  sooe  certainty  at  what  point  the  Intervals 
would  start  blowing  up  the  fellewtng  strategy  was  dovlsedc  each 
run  would  start  out  with  unit  weight  varied  by  aero/  unit  weight 
would  then  be  decreoented  by  units  of  .25%  of  the  Initial  value 
until  the  Intervals  would  blowup  (Table  3).  Once  this  strategy 
was  carried  out  a  value  (2.25X)  was  found  at  which  unit  weight 
could  be  decreased  without  generating  large  Interval  widths.  The 
testing  procedure  was  redone  using  this  value  to  decrease  unit 
weight.  In  the  suonery  report  generated  for  this  set  of  testing 
a  note  Is  oade  Indicating  those  runs  In  which  the  unit  weight  Is 
decreased  by  this  value  rather  than  the  nornal  1 0X. 
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Sample  values  f row  one  of  the  graduated  runs  (cohesion-OOX# 
phi-lOX).  T3  m  FS1-FSL.  For  this  run  the  Intervals  became 
unstable  at  unit  weight-3. 25X.  (*  indicates  infinity) 

UNIT  WEIGHT  -  2. SOX 

T3  ■  t-.382388e-01#-.380500e-0i:i 

CP  »  t-1. 786#-1.0943  C-1. 43#-8973  C435#4443 

UNIT  WEI6HT  -  2.75X 

T3  «  C-.38430e-01#-382241e-013 

CP  »  C-1. 786,-1. 0933  C-1. 43,-8953  £435.4443 

UNIT  WEI6HT  -  3.00X  (bounds  faults  occurred) 

T3  *  C-. 1 39087e-03#0.8267t  6e-04D 

CP  *  C-1. 977#-. 97483  C-1 . 57#-. 8013  C434#4463 

UNIT  WEIGHT  -3.25X  (bounds  faults  occurred) 

T 3  •  C-.240356e-03#-. 1835823 
CP  «  £-*#+*3  £-*#+*3  C 34  #5731 ] 


While  these  runs  were  being  made  a  large  amount  of  time  and 
effort  was  spent  in  the  tracking  down  of  the  source  of  the 
expanding  intervals.  After  an  extended  effort  the  source  was 
traced  with  a  large  degree  of  confidence  to  one  statement#  "T 3  * 
FS1  -  FSL".  It  seems  that  as  unit  weight  is  decreased  the 
difference  between  FS1  and  FSL  becomes  increasingly  small. 
After  a  time  the  subtraction  has  the  effect  of  stripping  off  the 
significant  digits  of  accuracy  of  the  resultant  interval.  The 
problem  was  compounded  by  using  T3  as  a  divisor  in  a  subsequent 
computation  thus  exploding  the  interval  during  the  next  few 
cooputat ions. 

One  other  unexpected  benefit  was  reaped  by  during  this 
procedure.  While  tracing  through  the  routines  it  was  noted  that 
in  the  subroutine  WGHT  several  computations  could  be  combined  and 
an  interval  consistently  of  less  than  optimal  width  could  be 
factored  out  producing  a  more  accurate  algorithm.  While  its 
disturbing  Influence  could  not  altogether  be  avoided  it  was 
minimi  zed. 

The  56  decimal  digit  version  of  the  interval  package  was  then 
made  available.  Testing  was  done  as  before.  Three  outstanding 
features  of  the  testing  were  noted.  The  first  was  that  the  data 
dependency  of  the  algorithm  as  noted  above  disappeared#  the 
interal  widths  getting  no  larger  than  10**-4.  The  second  was  the 
overly  large  amount  of  central  processor  unit  time  required  for 
processing  each  run  (55  minutes  plus  or  minus  6  minutes)  (Table 
4).  It  was  noted#  however  that  most  of  this  time  was  spent  in 
just  a  few  of  the  interval  routines#  principally  the 
trigonometric  functions  which  take  considerable  amounts  of  time 
to  evaluate  when  the  argument  is  greater  than  one.  The  fast 
fourier  transform  routines  did  not  encounter  this  large  an 


Increase  in  the  amount  of  central  processing  unit  time  per  run. 
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This  table  shows  the  maximum  and  minimum  central  processor  unit 
times  which  were  encountered  during  each  set  of  testing  runs  for 
single  precision*  double  precision*  single  precision  interval* 
extended  Interval. 

SINGLE  PRECISION 

max  --  2.80  (cohes  ion*10X*  phi-lOX*  unit  we1ght-10X> 

min  —  2.48  <cohesion-00X*  phi-lOX*  unit  weight-OOX) 

DOUBLE  PRECISION 

max  —  3.08  (cohesion+lOX*  phi-lOX*  unit  weight-OOX) 

min  —  2.58  ( cohes ion-OOX*  phl+lOX*  unit  weight-OOX) 

SINGLE  PRECISION  INTERVAL 

max  --  26.30  Ccohesion+lOX*  phi-lOX*  unit  weight>10X) 
min  —  22.35  <cohe si on-lOX*  phi-lOX*  unit  weight-lOX) 

EXTENDED  INTERVAL 

max  —  3719  < cohes ion-OOX*  phl-OOX*  unit  weigbt+lOX) 

min  —  2951  < cohes i on-OOX*  phi-lOX*  unit  weight-OOX) 

The  third  and  most  pleasant  of  the  notable  features  was  the 
complete  lack  of  problems  In  the  bringing  up  and  testing  of  the 
56  decimal  digit  version  of  the  algorithm.  This  was  a  benefit  of 
the  absence  of  any  needed  large  modifications  to  be  made  to  the 
single  precision  interval  to  convert  it  to  the  5  decimal  digit 
version.  The  only  required  modification  was  that  of  a  slight 
adjustment  to  the  output  parameters  to  widen  the  output  field 
This  was  required  as  the  exponent  field  supplied  by  the  5 
decimal  digit  routines  was  somewhat  larger. 

smss 

The  STRESS  program  finds  the  stress  on  a  plane  at  particular 
nodal  points.  This  program  was  provided  to  us  as  an  extra 
program  from  WES  to  analyze.  The  program  was  run  in  single 
precision  and  double  precision.  The  program  terminated 
abnormally  in  both  cases.  The  output  produced  by  WES  also 
indicated  that  the  program  terminated  abnormally.  The  output 
produced  at  USL  matched  the  output  provided  by  WES  up  to  the 
point  of  termination.  The  program  was  also  run  in  single 
precision  Interval  and  extended  Interval  and  also  terminated 
abnormally.  We  are  currently  waiting  to  recieve  from  WES 
corrections  to  the  STRESS  program  and  additional  input  to  run  the 
program  again. 
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We  h«ve  concluded  that  the  use  of  single  precision  and  54  decimal 
digit  extended  precision  interval  arithmetic  can#  at  times#  be 
extremely  useful.  It  can  be  used  to  show  the  Halts  of  precision 
of  an  algoritha.  Froa  the  testing  it  was  shown  that  when  using 
the  56  deciaal  digit  data  type  auch  better  bounds  were  obtained 
for  the  results  than  when  using  the  single  precision  Interval 
data  type.  This  was  expected  for  two  reasons:  1)  56  deciaal 
digits  carry  aere  precision  than  27  binary  digits  (approximately 
equivalent  to  8  deciaal  digits)  used  for  single  precision  and  2) 
there  was  no  conversion  error  on  Input  and  output.  The  price 
paid  for  this  increase  in  precision  is  a  decrease  in  runtlae 
efficiency.  The  testing  indicated  that  single  precision  interval 
arithaetic  resulted  in#  at  most#  one  order  of  magnitude  increase 
precision  execution.  56  decimal  digit  interval  operation 
resulted  in  a  further  increase  of  more  than  one  to  more  than  two 
orders  of  magnitude. 

One  application  for  56  decimal  interval  arithmetic  would  be  to 
validate  existing  routines.  Any  data  sensitivity  discovered 
could  be  included  in  a  description  of  the  algoritha  and 
directions  on  its  use.  Although  56  deciaal  interval  arithaetic 
is  expensive#  its  cost  must  be  balanced  against  possible 
consequences  of  using  invalid  results.  A  defective  dam  or  the 
aoving  of  100#000  tons  of  dirt  unnecessarily  would  cost 
considerably  more  than  a  few  hours  of  computer  time. 

A  more  cost  effective  technique  might  be  to  first  test  the 
algoritha  using  single  precision  interval  arithaetic.  Its 
relatively  small  decrease  in  runtime  efficiency  indicates  that 
its  use  is  more  than  justified  as  an  economical  means  in 
identifying  possible  trouble  areas  in  an  algorithm  for  the  data 
under  consideration.  The  more  expensive  56  deciaal  interval 
arithaetic  could  then  be  used  to  Investigate  those  cases  with 
possible  problem  areas. 

Interval  arithmetic  can  also  be  used  to  determine  the  precision 
of  the  arithmetic  required  to  guarantee  a  given  precision  in  the 
results  of  an  algorithm.  In  some  of  the  benchmarks  executed  in 
56  deciaal  digit  interval  arithmetic#  the  results  were  good  only 
to  40  or  so  digits.  This  represents  a  considerable  loss  of 
precision.  It  also  points  out  why  arbitrarily  picking  a  given 
precision  for  arithmetic  does  not  guarantee  results  in  which 
absolute  confidence  can  be  placed.  How  great  an  increase  in 
precision  is  obtained#  if  any#  by  going  froa  a  machine  with  32 
bit  words  to  one  with  60  bit  words? 

In  general#  whether  using  interval  or  regular  arithmetic#  the 
greater  the  precision  the  longer  the  run  time  required  for  a 
given  algoritha.  Having  variable  precision  Interval  arithaetic 
would  allow  the  validation  of  algorithms  for  which  single 
precision  Interval  arithmetic  is  insufficient  without  having  to 
go  all  the  way  to  56  decimal  digit  precision.  There  will  also  be 
Instances  where  it  might  be  desirable  or  necessary  to  go  beyond 


56  decimal  digits  of  precision.  There  will  also  be  Instances 
where  It  eight  be  desirable  or  necessary  to  go  beyond  $6  dec  lea l 
digits  of  precision.  In  any  case/  the  overhead  associated  with 
execution  in  interval  arithmetic  witl  only  be  as  great  as 
reautred  for  the  necessary  precision. 

The  execution  speed  of  Interval  arithmetic  can  be  increased  in 
several  ways.  One  would  be  to  decrease  the  number  of  levels  of 
interpretation  required  in  the  current  iapl  ostentation.  The 
optimum  solution  would  be  to  have  a  hardware  or  firmware  module 
which  eould  execute  variable  precision  interval  arithaetic. 
(Many  existing  ainicoaputer  systems  have  undefined  opcodes  and 
ports  for  just  such  requirements).  As  a  side  effect#  an 
arithaetic  unit  that  can  execute  variable  precision  Interval 
arithaetic  can  also  execute  variable  precision  regular 
arithmetic.  This  means  that  interval  arithaetic#  of  the 
necessary  precision#  could  be  used  to  determine  the  required 
arithmetic  precision  required  for  the  results  of  the  algorithm. 
Then#  the  algorithm  could  be  executed  using  only  the  required 
precision  on  the  special  arithmetic  module. 
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The  floating  number  system  used  on  computers  is  an  approximation 
to  the  real  number  system.  In  interval  arithmetic#  real  numbers 
are  approximated  by  intervals  which  contain  the  number.  A  brief 
introduction  to  interval  arithmetic  is  given  in  Appendix  A.  We 
will  represent  an  interval  as  a  pair  of  floating  point  numbers 
stored  in  consecutive  storage  locations.  The  first  number  will 
be  the  left  endpoint  and  the  second  number  will  be  the  right 
endpoint  of  the  interval.  Since  the  floating  point  system  used 
on  computers  is  an  approx imat i on  to  the  real  number  system#  there 
are  many  intervals  whose  endpoints  do  not  have  an  exact 
representation  in  a  particular  floating  point  system.  In  this 
case  the  endpoints  of  the  interval  have  to  be  approximated  by  the 
floating  point  system. 

We  will  regard  intervals  as  bounds  on  an  exact  but  unknown  real 
number.  Ue  would  like  the  computer  approximation  to  the  interval 
to  also  bound  the  same  real  number.  This  means  that  if  the 
interval  Ca'#b'J  is  a  computer  approximation  to  the  interval 
Ca#b3#  then  ue  would  like  Ca#b3  £  ta’/b'D.  In  order  to  insure 
that  the  proceeding  set  inclusion  always  holds#  a'  must  be  a 
lower  bound  for  a  and  b*  must  be  an  upper  bound  for  b.  Since  we 
want  the  best  computer  approximation  to  the  interval#  we  want  a* 
to  be  the  greatest  lower  bound  for  a  and  b'  to  be  the  least  upper 
bound  for  b.  In  this  way  the  interval  Ea'#b'3  will  be  the 
smallest  computer  representable  interval  that  contains  [a#bj. 

In  order  to  obtain  the  smallest  computer  representable  interval 
for  the  result  of  arithmetic  operations  on  intervals#  directed 
roundings  on  the  computer  artihmetic  operations  must  be  defined. 
If  x  is  a  real  number  and  Ml  and  M2  are  two  consecutive  machine 
representable  numbers  such  that  Ml<x<M2  and  if  r  is  a  rounding 
function#  then  r  is  downward  directed  if  r(x>  *  Ml  and  r  is 
upward  directed  if  r(x)  *  M2.  Ml  and  M2  will  be  the  machine 
representable  numbers  that  are  respectively  the  greatest  lower 
bound  and  the  least  upper  bound  for  the  real  number  x.  If  x  is  a 
machine  representable  number#  then  r(x)  *  x. 

In  general  a  op  b#  where  a  and  b  are  machine  r epresentab le 
numbers  and  op  is  one  of  the  machine  arithmetic  operations#  is 
not  a  machine  representable  number  and  must  be  rounded  into  a 
machine  representable  number.  Algorithms  for  performing  the 
machine  arithmetic  operations  with  directed  roundings  can  be 
found  in  Yohe  C23.  These  operations  are  used  to  compute  the 
endpoints  of  the  resultant  interval  for  a  particular  arithmetic 
operation  performed  on  two  intervals.  A  downward  directed 
rounding  is  performed  on  the  left  endpoint  and  an  upward  directed 
rounding  is  performed  on  the  right  endpoint. 


For  example*  in  Appendix  A#  interval  addition  is  defined  as 
f o l low  s: 

Ca*b3  ♦  Cc*d3  ■  Ca+c*b+d3 

We  assume  now  that  a/  b,  c*  and  d  are  machine  representable 
numbers.  The  computer  approximation  to  the  resultant  interval  is 
defined  as  follows: 

Ca,b3  •  Cc*d3  *  [r 1 (a*c )*r2 (b«d) 3 

where  •  is  the  machine  addition  operation  and  rl  is  a  downward 
directed  rounding  and  r2  is  an  upward  directed  rounding. 

Since  the  exponent  range  is  bounded*  certain  faults  may  occur 
during  an  arithmetic  operation.  If  the  exponent  becomes  too 
small*  underflow  has  occurred.  If  the  exponent  becomes  too 
large/  then  overflow  has  occurred.  If  underflow  occurs*  then  the 
true  result  is  between  zero  and  the  smallest  positive  or  negative 
representable  number.  In  this  case  a  directed  rounding  can  give 
a  valid  bound.  In  the  case  of  overflow*  if  rounding  away  from 
zero  is  wanted*  then  there  is  no  machine  representable  number 
which  can  be  used  as  a  correct  bound.  This  type  of  fault  is 
known  as  an  infinity  fault. 
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A  real-valued  function*  f*  which  is  defined  and  continuous  on  an 
interval  Ca*b3  can  be  extended  to  an  interval-valued  function*  ft 
of  an  interval  variable  by  defining 

F(Ca*b3)  a  <f(x>  :  x  e  Ca/b3>. 

When  f  is  evaluated  on  a  digital  computer  using  machine 
representable  approximations  to  the  real  numbers*  a  computer 
approximation/  f '/  to  f  results.  If  F(Ca*b3)  is  an  interval 
valued  function  of  an  interval  (where  a  and  b  are  machine 
representable  numbers)/  then  the  computer  approximation* 
F'(Ca*b3)  is  defined  as  an  interval  that  contains  F(Ca*b3). 

If  f'  is  the  computer  approximation  of  a  real  valued  function  f 
and  f  is  monotonic  increasing  on  Ca*b3*  then 

F'(Ca*b3)  =  Crl <f * (a))*r2(f • <b))3 

where  rl  is  a  downward  directed  rounding  into  a  machine 
representable  number  such  that  r1(f*<a)>  5  f(a>  and  r2  is  an 
upward  directed  rounding  into  a  machine  representable  number  such 
that  r2<f'<b)>  £  f(b).  Ideally  we  would  like  r1(f'(a>)  to  be  the 
largest  machine  representable  number  such  that  r1(f'(a)>  S  f(a) 


(i.e.*  a  greatest  tower  bound)  and  r2(f*(b))  to  be  the  smallest 
machine  representable  number  such  that  r 2<f'(b>)  >  f(b)  (i.e*  a 
least  upper  bound). 

If  f  is  monotonic  decreasing  on  Ca*b3*  then 

F ' (Ca*bJ )  «  Crl (f *(b))*r2(f * (a))] 

If  f  is  not  monotonic  on  Ca*b3*  then  the  interval  Ca#b3  can  be 
divided  into  disjoint  sub  inter vals ;  X'(i)*  i  *  1*2*3*. ..*n)  where 
the  endpoints  of  each  X'(i)  are  machine  representable  numbers  and 
U  X(i)  contains  all  the  machine  representable  numbers  in  the 
interval  Ca*b3  and  f  is  monotonic  on  each  X'(i).  In  this  case 
F  •  (  Ca#b3)  *  U  F  (X*  <i  )  )  . 

¥ 

It  may  not  be  possible  to  obtain  the  best  bounds  for  the  result 
of  the  computer  approximation  to  the  function  f.  The  problem 
will  be  illustrated  in  the  next  section  when  describing  the 
interval  counterparts  of  the  MULTICS  basic  external  functions. 
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The  interval  arithmetic  package  and  the  input/output  routines  for 
interval  numbers  which  are  implemented  on  the  MULTICS  system 
follow  the  design  of  an  interval  arithmetic  package  implemented 
on  the  UNIVAC  1108  computer  located  at  the  Mathematics  Research 
Center  of  the  University  of  Wisconsin  C1*33.  This  section  mainly 
presents  the  difficulties  encountered  when  the  Interval 
arithmetic  package  was  implemented  on  the  MULTICS  system  and  also 
the  changes  that  were  made  to  the  original  interval  package 
implemented  at  MRC.  Most  of  the  changes  dealt  with  machine 
depend  enc ies. 

Before  the  routines  are  described*  a  description  of  the 
representation  of  interval  numbers  on  MULTICS  will  be  given  along 
with  a  description  of  the  MULTICS  double  precision  floating  point 
format  and  how  it  impacted  the  realization  of  the  interval 
package.  The  endpoints  of  the  intervals  are  represented  as  a 
pair  of  floating  point  numbers  stored  in  consecutive  storage 
locations.  The  MULTICS  single  precision  floating  point  format 
uses  a  36  bit  word  which  consists  of  an  8  bit  2's  complement 
exponent*  with  the  high  order  bit  the  sign  bit*  followed  by  a  28 
bit  normalized  2's  complement  fraction*  with  the  high  order  bit 
the  sign  bit. 

In  the  original  interval  package  implemented  on  the  UNIVAC  1108* 
the  type  double  precision  in  Fortran  was  used  extensively  to  trap 
underflow  and  overflow  fault  conditions.  This  could  be  done 
because  the  exponent  range  of  the  double  precision  floating  point 
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format  on  the  UNIVAC  1108  is  greater  than  the  single  precision 
floating  point  format.  Therefore#  with  certain  precautions# 
results  could  be  computed  in  double  precision  without  fear  of 
aachine  underflow  or  overflow.  The  underflow  or  overflow  could 
then  be  trapped  when  the  conversion  is  made  to  single  precision. 
The  MULTICS  double  precision  floating  point  format  uses  a  72  bit 
double  word  which  consists  of  an  8  bit  2* s  coapleaent  exponent# 
with  the  high  order  bit  the  sign  bit#  followed  by  a  64  bit 
normalized  2's  complement  fraction#  with  the  high  order  bit  the 
sign  bit.  The  double  precision  floating  point  format  has  the 
same  exponent  range  as  the  single  precision  format.  Therefore# 
it  is  much  more  difficult  to  trap  certain  faults.  The  problem  is 
amply  illustrated  in  the  section  describing  the  implementation  of 
the  interval  basic  external  functions. 
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The  subroutines  of  the  MRC  interval  package  can  be  divided  into 
eight  categories.  These  categories  are  arithmetic  operations# 
exponentiation  operations#  conversion  functions#  comparison# 
basic  external  functions#  supporting  functions#  input/output 
routines  and  miscellaneous.  All  of  the  routines  in  each  category 
except  the  input/output  category  were  written  in  Fortran  at  the 
upper  level.  Several  of  the  Fortran  subroutines  call  routines 
that  are  written  in  PL/I.  These  PL/I  routines  correspond  for  the 
most  part  to  the  assembler  routines  that  were  written  for  the 
UNIVAC  1108  version  of  the  interval  package  and  are  written 
specifically  for  the  MULTICS  implementation.  Most  of  the 
input/output  routines  were  written  in  PL/I. 

Each  subroutine  in  the  package  will  be  described  briefly  except 
when  changes  had  to  be  made  to  a  particular  subroutine  because  of 
some  machine  dependencies.  In  that  case  a  more  detailed 
description  will  be  given.  After  the  description  of  each  routine 
a  code  will  be  given  that  specifies  whether  that  particular 
routine  was  implemented  in  its  original  form  from  the  UNIVAC  1108 
version#  or  it  was  implemented  with  some  changes  from  the  UNIVAC 
1108  version#  or  it  was  written  in  PL/I  specifically  for  the 
MULTICS  system.  The  codes  are  CMRC3  for  the  original  form  with 
no  changes#  CMRC/M3  for  the  original  form  modified#  and  CMULJ  for 
the  routines  written  specifically  for  the  MULTICS  system. 
Appendix  C  provides  a  summary  of  the  routines  in  each  of  the 
above  categories.  A  complete  source  listing  of  the  MULTICS 
interval  package  can  be  found  in  C83. 
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The  routines  in  this  category  perforin  the  four  basic  arithmetic 
operations  of  addition*  subtraction*  multiplication*  and  division 
on  interval  numbers.  Since  we  want  the  best  computer 
approx imati on  to  the  results  of  computer  arithmetic  operations  on 
intervals*  directed  roundings  on  the  computer  arithmetic 
operations  must  be  performed.  The  floating  point  hardware  on  the 
MULTICS  system  does  not  perform  directed  roundings.  Therefore 
the  four  basic  single  precision  floating  point  computer 
arithmetic  operations  of  addition*  subtraction*  multiplication* 
and  division  had  to  be  simulated  in  order  to  provide  the  correct 
roundings.  A  description  of  the  routines  that  simulated  the 
floating  point  computer  arithmetic  operations  and  provided  the 
proper  directed  roundings  and  a  description  of  the  routines  that 
perform  the  basic  computer  arithmetic  operations  on  intervals 
follows.  These  routines  perform  the  "best  possible  arithmetic” 
computer  operations  with  directed  roundings  as  described  by  Yohe 
C23.  All  the  routines  are  written  in  PL/I  for  the  MULTICS 
system. 

bpaadd:  Performs  single  precision  floating  point  addition.  CMUL3 

bpasub:  Performs  single  precision  floating  point  subtraction.  A 
problem  can  occur  in  this  routine  because  the  subtraction 
is  realized  by  negating  the  second  operand  and  calling 
the  bpaadd  routine.  The  problem  is  negating  the  smallest 
positive  representable  number*  because  underflow  will 
occur  using  the  MULTICS  floating  point  hardware.  This 
problem  can  occur  in  general  and  the  solution  to  the 

problem  is  described  below  in  the  description  of  the  pack 

routine.  [MULJ 

bpamul :  Performs  single  precision  floating  point  multiplication. 
CMULJ 

bpadiv:  Performs  single  precision  floating  point  division.  CMUL3 

brounding:  Performs  bounds  checking  and  rounding  on  the  results 
from  the  above  four  arithmetic  operations.  The 
rounding  strategies  employed  are  toward  zero*  away 
from  zero*  downward  directed*  upward  directed*  and 
optimal.  CMUL3 

unpack:  This  routine  unpacks  the  floating  point  number  from 
MULTICS  format  into  a  format  that  the  bpa  routines  will 

handle.  The  number  is  made  positive  because  the  bpa 

routines  perform  their  operations  on  signed  magnitude 
fractions.  CMUL3 
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normalize:  This  routine  is  used  by  the  bpa  routines  to  normalize 
the  fraction.  CMUL3 

shift.right:  This  routine  is  used  by  the  bpa  routines  to  shift 
the  fraction  right  when  fraction  overflow  occurs. 
CMUL3 

s.agn.add:  This  routine  performs  a  signed  Magnitude  addition  of 
(  two  36  bit  binary  integers.  it  is  used  by  the  bpaadd 

routine  to  add  the  two  fractions.  CMUL3 

♦ 

pack:  This  routine  packs  the  floating  point  result  produced  by 
the  bpa  routines  into  the  MULTICS  floating  point  foraat.  A 
problea  can  occur  in  this  routine  when  the  nuaber  to  be 
.  packed  is  the  negative  of  the  saallest  positive 

representable  nuaber.  The  bpa  routines  perfora  signed 
Magnitude  arithmetic  on  the  fractions  and  a  negative  result 
is  obtained  in  MULTICS  foraat  by  negating  the  positive 
result.  The  negation  of  the  saallest  positive 

representable  nuaber  will  cause  an  underflow  using  the 
MULTICS  floating  point  hardware  because  the  normalized  fora 
of  that  number  has  an  exponent  of  -129  and  is  therefore  not 
representable.  If  the  number  is  to  be  negated  and  it  is 
the  saallest  positive  representable  number/  then  the  bit 
pattern  that  represents  the  negative  of  the  saallest 
positive  representable  number  is  assigned  to  the  result. 
This  number  is  not  in  true  2's  complement  normalized  fora# 
but  represents  the  true  value.  CMULJ 

The  following  two  Fortran  subroutines  perfora  the  arithmetic 
operations  of  addition/  subtraction/  multiplication/  and  division 
on  intervals.  The  routines  call  the  bpa  routines  described  above 
to  perform  their  operations  on  the  endpoints  of  the  intervals. 

arithl:  This  routine  performs  the  operations  of  addition  ar d 

subtraction  on  intervals.  There  is  an  entry  point  for 
addition  and  an  entry  point  for  subtraction.  The 
operations  are  performed  on  the  endpoints  as  described  in 
Sections  1  and  2.  A  slight  change  was  made  in  this 
routine  from  the  original  routine  implemented  in  the 

(  UNIVAC  1108  version  of  the  interval  package.  The 

original  routine  only  made  calls  to  the  bpaadd  routine. 
In  the  case  of  interval  subtraction  the  endpoints  of  the 
second  interval  operand  were  negated  and  the  bpaadd 
routine  was  then  called.  This  negation  could  cause  the 
same  problem  as  described  above  in  the  bpasub  and  pack 
*  routines.  Since  the  problem  had  been  taken  care  of  in 

the  bpasub  routine/  it  was  decided  to  call  the  bpasub 
routine  directly  if  an  interval  subtraction  was  to  be 
performed.  CMRC/M3 
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arith2:  This  routine  performs  the  operations  of  multiplication 
and  division  on  intervals.  There  is  an  entry  point  for 
multiplication  and  an  entry  point  for  division.  As  is 
stated  in  Appendix  A *  the  signs  of  the  endpoints  of  the 
intervals  being  multiplied  or  divided  are  examined  in 
order  to  determine  in  advance  which  products  or  quotients 
will  be  the  maximum  and  minimum.  CMRC3 


2*1*2 _ E&aaQSQiiiiiao-QatiaiiSDS 


The  routines  in  this  category  perform  various  exponentiation 
operations  involving  interval*  double  precision*  real*  and 
integer  numbers.  The  exact  nature  of  the  exponentiation 
performed  will  be  described  in  the  description  of  each  Fortran 
routine  that  follows: 

exponl :  This  routine  calculates  the  value  of  an  interval  raised 
to  an  integer  power.  £MRC] 

bpaxpA:  This  routine  computes  the  best  value  of  a  real  number 
raised  to  an  integer  power.  it  is  used  by  exponl  to 
calculate  the  value  of  an  interval  raised  to  an  integer 
power.  Changes  were  made  in  this  routine  to  correct  the 
situation  in  which  the  fault  flag  may  not  be  set 
correctly  and  to  take  care  of  the  problem  of  negating  the 
smallest  positive  repr esent able  number.  CMRC/Ml 

exponE:  This  routine  calculates  base  **  power  where  base  is  an 
interval  number  and  power  is  real*  double  precision*  or 
interval.  There  is  an  entry  point  for  each  type  of 
exponentiation.  CMRCJ 

2*1.2- _£QQXeCSiaQ_£UQ£tiQQ5 


The  routines  in  this  category  perform  conversions  from  the 
standard  types  to  type  interval  and  from  interval  to  the  standard 
types.  The  following  routines  are  written  in  Fortran. 

convrt  :  This  routine  has  entry  points  to  convert  from  integer  to 
interval*  complex  to  interval*  real  to  interval*  and 
double  precision  to  interval.  CMRCD 

intcSA:  This  routine  converts  from  interval  to  integer.  A  change 
was  made  in  the  routine  to  set  the  sign  of  the  result 
correctly  when  the  maximum  result  needs  to  be  set. 
CMRC/M3 

intc85:  This  routine  converts  from  interval  to  real.  Changes 
were  made  in  this  routine  to  check  for  underflow 
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differently  than  in  the  original  due  to  the  fact  that  the 
exponent  range  of  a  double  precision  floating  point 
number  is  not  greater  than  the  exponent  range  of  a  single 
precision  floating  point  number  on  the  H68/80  computer. 
CMRC/MD 

intc86:  This  routine  converts  from  interval  to  double  precision. 

Changes  were  made  in  this  routine  to  check  for  underflow 
differently  than  the  original  because  of  the  same 
exponent  range  of  the  double  precision  and  single 
precision  floating  point  formats.  [MRC/Ml 

intc87:  This  routine  converts  from  interval  to  complex.  [MRCJ 

funct3:  This  routine  computes  an  interval  with  integer  endpoints 
(in  floating  point  form)  which  contains  the  interval  of 
the  argument.  CMRC3 


2*1*4 - CaDQAliSQQS 


The  routines  in  this  category  are  the  relational  intrinsic 
functions  for  type  interval.  The  following  routine  was  written 
in  Fortran. 

relatn:  This  routine  has  entry  points  for  the  relational 
functions  of  equal#  not  equal#  less  than#  less  than  or 
equal#  greater  than#  and  greater  than  or  equal.  CMRCl 


2*1*1 _ fii&ifi.&££££a*l_£ua£tiQQS 


Included  in  the  interval  package  are  the  interval  counterparts  of 
the  MULTICS  basic  external  functions  atan2#  exp#  alog#  aloglO# 
sin#  cos#  tan#  asin#  acos#  atan#  sinh#  cosh  and  sqrt.  The 
general  method  of  calculation  of  the  interval  functions  involves 
bounding  the  results  of  the  corresponding  double  precision  basic 
external  function.  For  functions  that  are  monotonic  over  an 
interval#  the  endpoints  of  the  resultant  interval  are  the  result 
of  the  double  precision  function  evaluated  at  the  endpoints  of 
the  input  interval  and  then  properly  bounded.  If  the  function  is 
not  monotonic  over  the  interval#  then  a  case  analysis  is  done  by 
dividing  the  input  interval  into  subintervals  over  which  the 
function  is  monotonic. 

The  result  obtained  from  the  double  precision  functions  must  be 
bounded  before  it  can  be  used  as  the  endpoint  of  an  interval. 
Therefore#  the  accuracy  of  the  results  of  the  double  precision 
basic  external  functions  are  required  by  determining  a  lower 
bound  on  the  number  of  bits  of  the  fraction  that  the  result  is 
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guaranteed  to  have.  the  number  of  bits  of  the  fraction  that  the 
result  is  guaranteed  to  have  are  required.  This  can  be 
illustrated  by  the  following  example.  Suppose  a  result  is 
accurate  to  35  bits  of  fraction  and  a  27  bit  lower  bound  for  the 
result  is  required.  Assume  that  the  27th  through  37th  bits  of 
the  fraction  were  10000000000.  If  the  result  were  just  truncated 
to  27  bits  the  27th  bit  would  be  a  1.  If  however  the  37th  bit 
was  one  unit  too  large*  then  bits  27  through  37  would  be 
01111111111  and  the  27th  bit  of  the  correct  lower  bound  would  be 
0.  It  cannot  be  determined  which  case  is  correct. 

The  following  general  bounding  technique  is  performed  which  will 
produce  correct  bounds  in  all  cases*  but  not  necessarily  optimal 
bounds.  If  a  lower  bound  is  sought  for  the  double  precision 
result*  then  the  fraction  is  decremented  by  one  at  or  before  the 
last  bit  known  to  be  accurate.  If  an  upper  bound  is  sought*  then 
the  fraction  is  incremented  by  one  at  or  before  the  last  bit 
known  to  be  accurate.  The  same  bounding  technique  used  in 
bounding  the  results  of  the  arithmetic  operations  is  then  used  to 
obtain  the  27  bit  fraction  of  the  result. 

The  following  Fortran  routines  compute  the  basic  external 
functions  for  the  interval  type. 

funct2  :  This  routine  has  entry  points  for  the  following  interval 
functions:  sqrt*  log*  exp*  loglO*  atan*  asin*  acos*  tanh* 
sinh*  cosh.  Changes  made  to  the  as  in  and  acos  functions 
are  described  in  Section  2. 1.5. 2  and  changes  made  to  the 
functions  sinh*  cosh  and  tanh  are  described  in  Section 
2. 1.5. 3.  CMRC/M] 

functA:  This  routine  calculates  sin(arg)  and  cos(arg)  where  arg 
is  an  interval.  There  is  an  entry  point  for  the  sine  and 
an  entry  point  for  the  cosine  function.  The  cosine 
routine  scales  the  argument  so  that  the  left  endpoint  is 
in  the  interval  CO*2pi3*  and  then  performs  a  case 
analysis.  The  sine  routine  performs  the  same  scaling  as 
the  cosine  routine  and  performs  a  case  analysis.  CMRC/MJ 

funct5:  This  routine  calculates  tan  and  atan2  of  an  interval. 

The  entry  point  is  provided  for  either  function.  The 
tangent  is  calculated  as  follows:  the  argument  is  reduced 
so  that  the  left  endpoint  is  in  the  interval:  C-pi/2* 
pi/23  and  then  a  case  analysis  is  performed.  The  atan2 
routine  takes  two  interval  arguments*  x  and  y  and 
computes  atan(x/y).  CMRC/M3 


£.1.2«l..A££U£4£K.t£iiiQfl 

To  our  knowledge*  there  is  no  documentation  concerning  the 
implementation  of  the  basic  external  functions  on  MULTICS 
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accessible  either  by  PL/I  or  Fortran.  We  considered  three 
approaches  to  determining  the  accuracy  of  the  required  external 
functi on: 

1)  rigorous  error  analysis  of  current  implementation 

2)  rewriting  of  the  required  routines 

3)  comparison  of  accuracy  with  known  test  data 

Firsts  the  error  analysis  of  the  mathematical  library  routines 
seemed  to  be  impossible  due  to  the  a)  tack  of  description  of  the 
algorithms  employed/  b)  low  readability  of  the  source  programs 
(much  of  which  was  written  in  AIM  -  Assembly  Language  of 
MULTICS).  The  second  possibility  had  to  be  eliminated  due  to  the 
time  constraints  of  the  project  and  therefore  the  third  approach 
had  to  be  taken. 

The  testing  itself  was  done  in  two  stages: 

stagel  -  generation  of  input  test  data  and  evaluation  of  the 
given  f  unc  t  i  on 

stage2  -  comparison  of  significant  digits  of  the  result  and 
corresponding  value  in  the  tables 

"Driver"  programs  were  written  which  generated  test  data  and 
called  the  routines  which  were  to  be  tested.  The  standard  tables 
of  functions/  i.e.  Handbook  of  Mathematical  Functions  by  Milton 
Abramowitz  and  Irene  A.Stegun  C73  were  used.  The  output  was 
generated  in  decimal  form  and  then  a  check  was  made  as  to  the 
first  digit  that  was  different  from  the  result  given  in  the 
table.  All  digits  of  function  values  which  were  tested  proved  to 
be  identical  with  corresponding  digits  in  the  Handbook.  The  only 
exception  being  the  last  digit  in  the  Abramovitz's  tables. 
However/  the  analysis  of  the  very  next  digit  in  our  results 
showed  that  in  each  case  the  error  was  caused  by  an  upward 
r ou  ndi ng  . 

The  test  data  had  been  restricted  to  the  decimal  values  that  can 
be  represented  exactly  in  the  floating  binary  notation.  Thus/  we 
avoided  the  input  conversion  error  and  the  function  value  could 
be  obtained  for  the  true  argument.  Also/  we  have  to  warn  that 
the  accuracy  estimated  in  this  way  must  be  somewhat  pessimistic. 
We  were  able  to  check  only  as  many  digits  as  were  given  in  the 
standard  tables.  Thus/  the  tan  function  is  assumed  to  have  only  8 
accurate  decimal  digits  even  though  there  are  reasons  to  believe 
that  accuracy  is  much  greater  than  that. 

The  list  of  the  number  of  decimal  digits  (and  binary  estimates  as 
well)  that  are  assumed  to  be  accurate  is  given  below. 
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Accuracy 


Function 

decimal 

b inary 

sqr  t 

10 

33 

log 

16 

52 

logl  0 

10 

33 

exp 

16 

52 

si  n 

1  7 

56 

cos 

17 

56 

tan 

8 

27 

asin 

12 

39 

acos 

12 

39 

atan 

12 

39 

sinh 

9 

29 

cosh 

10 

33 

tanh 

8 

27 

2  2 _ tQQdi.ti.QQS _ lQ£._£££Q££ 

The  Univac  1108  double  precision  word  has  an  11  bit  exponent 
field  vs.  an  8  bit  exponent  in  the  single  precision  word.  This 
allowed  the  checking  for  overflow  and  underflow  faults  to  be  done 
during  the  conversion  from  double  to  single  precision  format*  as 
was  stated  in  section  2.0.  This  strategy  was  not  applicable  for 
MULTICS  due  to  the  same  size  of  the  exponent  in  both  the  double 
and  single  precision  format.  In  conclusion*  the  check  for 
eventual  fault  conditions  had  to  be  made  prior  to  the  calls  to 
the  double  precision  functions. 

The  following  functions  could  produce  overflows:  exp*  sinh*  cosh 
and  tanh.  in  the  MULTICS  implementation*  the  overflow  was 
prohibited  by  restricting  the  allowable  domain  of  the  argument  to 
the  interval  088. 028*88. 0283.  From  this  it  followed  that  for 
arguments  x  such  that  abs < x ) >88. 028 *  a  special  action  had  to  be 
taken.  At  this  point  it  turned  out*  that  the  magnitudes  of 
results  produced  at  the  endpoints  were  much  smaller  than  the 
largest  representable  number.  This  implied  that  the  actual 
domain  should  be  extended  beyond  088. 028*88. 028] .  The  attempt 
was  made  to  compute  the  new  endpoints  and  either  compute  (if 
possible)  or  estimate  the  proper  bounds  for  the  left  and  right 
endpoints  of  the  interval  result.  The  detailed  discussion  of 
these  cases  will  be  given  later  on. 

The  occurence  of  underflow  was  detected  in  the  double  precision 
functions  asin  and  acos.  Analysis  of  the  source  programs 
revealed  that  an  underflow  condition  was  raised  at  the  point  of 
the  internal  function  call  to  the  atan  routine.  Namely* 


asin(x)  »  at  an (x * sqr t (-x *x *1 ) ) 
acos(x)  =  atan (sqr t (-x*x*1 ) *x> 


and  for  x  very  small/  the  multiplication  operation  caused  an 
underflow.  The  overflow  and  underflow  fault  conditions  have  been 
tested  with  a  number  of  programs. 


2. 1.5.2 — &QiBaiQ..fiilifiQSifiQ-ifi£.lUQ£lifiQS _ £*Q*_iiQtU_£fi£t). 

As  we  mentioned  before/  the  MULTICS  implementation  of  the 
functions  exp/  sinh  and  cosh  restricts  the  domain  to  the  interval 
C-88.0 28/88/0283  .  Let  MIN  denote  the  smallest  positive  /  and  MAX 
the  largest  positive  machine  representable  number.  The  endpoints 
that  could  actually  cause  overflow  or  underflow  were  obtained 
from; 

log  (MIN)  =  -89.415 
log  (MAX)  »  88.029 

Thus/  the  domain  of  exp  could  be  extended  to  the  interval 
C-89.4 15/88.0293  with  exp  evaluating  to  MIN  or  MAX  at  the 
endpoints.  The  value  of  exp  outside  of  this  interval  and  in  the 
intervals  C-88.41 5/-88.0283  and  C88. 028/88. 0293  was  evaluated  as 
fol low  s: 


lep  or  rep 


exp lep 


exprep 


x  <  -89.415 
x  =  -89.415 
-89.415  <  x  <  -88.028 
-88.028  <«x<*  88.028 

88.028  <  x  <  88.029 

x  =  88.029 
x  >  88.029 


MIN/  underflow 

MIN 

MIN 

exp(x)/round  down 
exp(88.028) 
MAX/round  down 
MAX/  overflow 


MIN 

MIN/round  up 
exp(-88. 028) 
exp(x)/round  up 
MAX 
MAX 

MAX/  infinity 


where  "round  down"  means  round  to  the  next  smaller  machine 
representable  number  and  "round  up"  means  round  to  the  next 
larger  machine  repre sent abl e  number. 


The  largest  values  of  the  functions  hyperbolic  sine/  cosine/  and 
tangent  could  be  computed  for  the  argument  x*88.029  (since 
exp (88.029)sMAX) .  However/  even  then  they  were  much  smaller  than 
the  largest  representable  number.  Let  x  denote  the  left  or  the 
right  endpoints  of  the  argument.  For  x  very  large  we  have 


sinh(x)  *  e  xp( x) / 2 
sinh(-x)  ■  -exp(x)/2 
cosh(x)  *  exp(x)/2 


The  smallest  positive  argument  that  would  cause  an  overflow  was 
obtained  from: 


exp(x)/2  *  MAX  =  >  exp(x)/2  *  exp(88.029)  «>  x  *  88. 029+ log( 2) 


ss 


<1 


The  optimal  bounds  for  the  left  and  right  endpoint  are  shown  In 
the  table  below.  Hlep"  and  "rep"  denote  the  left  and  right 
endpoints  of  the  Interval  argument. 

tuefiibfilit-iiQfi 


lep  or  rep  »  x 


slnh lep 


slnhrep 


x  >  88.029*  In  <2  ) 

88.029  <  x<*88 .029*1 n( 2) 
x  =  88.029 
88.028  <  x  <88.029 
-88.029<  x  <-88.028 
x  *  -88.029 

-88  ,029-ln(2X*x<-88.029 
x  <  -88.029-ln  (2 ) 


MAX#  overflow 
MAX/2 

MAX/2#  round  down 

slnh (88.028) 

-MAX/2 

-MAX/2 

-MAX 

-MAX#  overflow 


MAX#  Infinity 

MAX 

MAX/2 

MAX/2 

sinh(-88.028) 
-MAX/2#  round  up 
-MAX/2 

-MAX#  infinity 


bXfi££bfili£.£fi£iQ£ 


lep  or  rep  *  x 


cosh lep 


coshrep 


x  >*  88.029* In ( 2) 
88.029<x  <  88. 029* ln( 2) 

x  a  88.029 
88.028  <  x  <  88.029 


MAX#  overflow 

MAX/2 

MAX/2 

cosh (88.028) 


MAX#  infinity 
MAX 

MAX/2#round  up 
MAX/2 


lep  or  rep  *  x 

x  <  -88.028 
x  >  88.028 


bXfi££b8ii£-t*0a£Q£ 
tanh  lep 


-1.0 

1.0#round  down 


tanh  rep 

-1.0#round  up 
1.0 


2«l*6__SUQQS££iQS_tUQ£lifiQ£ 


The  following  routines  perform  some  useful  functions  involving 
intervals.  All  the  routines  are  written  in  Fortran. 

functl:  This  routine  has  entry  points  to  calculate  the  absolute 
value  of  an  interval#  to  store  the  value  of  one  interval 
Into  another  and  to  store  the  negative  of  one  Interval 
into  another.  A  change  was  made  to  this  routine  to  take 
care  of  the  problem  of  negating  the  smallest  positive 
representable  number.  CMRC/M3 

supinf:  This  routine  has  an  entry  point  that  returns  the  left 
endpoint  of  an  Interval  and  an  entry  point  that  returns 
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the  right  endpoint  of  an  interval.  CMRCJ 


unints:  This  routine  has  an  entry  point  that  returns  the  union  of 
two  intervals  and  an  entry  point  that  returns  the 
intersection  of  two  intervals.  CMRCJ 

length:  This  routine  returns  the  length  of  an  interval.  A  change 
was  made  in  this  routine  to  compute  the  length 
differently  than  in  the  original.  The  length  is  computed 
by  performing  a  single  precision  subtract  with  an  away 
from  zero  rounding  strategy.  This  change  was  made  in 
order  to  trap  underflow  or  overflow.  EMRC/MJ 

intbnd:  This  routine  returns  an  interval  which  bounds  a  double 
precision  value  to  a  specified  accuracy.  CMRCJ 

dist:  This  routine  computes  the  distance  between  two  intervals. 

CMULJ 

compos:  This  routine  returns  an  interval  that  consists  of  the  two 
real  arguments  as  endpoints.  CMULJ 


_ iQQUlZQ  UlQUl-BSUl 2QSS 


The  routines  in  this  section  were  designed  to  some  extent  after 
the  I/O  routines  implemented  for  the  UNIVAC  1108  version  of  the 
interval  package  C3J.  Additional  routines  were  included  in  the 
MULTICS  version  to  handle  scalar  interval  variables  and  a  matrix 
of  interval  variables.  A  brief  description  of  each  I/O  routine 
is  given  here.  In  Section  3/  which  describes  writing  interval 
Fortran  programs/  a  more  detailed  description  of  the  routines  is 
provided  giving  the  calling  sequence  and  several  examples  for 
each  routine.  All  of  the  following  routines  are  written  in  PL/I. 

intrdv:  This  routine  reads  interval  numbers  into  any  number  of 
interval  scalar  variables.  CMULJ 


• 

int  rdf  : 

This  routine  reads 
vector.  CMULJ 

interval 

numbers 

into 

an 

interval 

% 

i nt  rdm : 

This  routine  reads 
matrix.  CMULJ 

interval 

numbers 

into 

an 

interval 

4 

i nt  prv : 

This  routine  outputs  interval  numbers 
interval  scalar  variables.  CMULJ 

from 

any 

number  of 

intpr: 

This  routine  outputs 

i nterval 

numbers 

f  rom 

an 

interval 

vector.  CMULJ 
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intprm:  This  routine  outputs  interval  numbers  fro*  an  interval 
matrix.  CMUL] 

The  following  routines  are  the  supporting  routines  needed  by  the 
above  routines  in  order  to  perform  interval  I/O.  All  the 
routines  are  written  in  PL/1  except  where  noted. 

conver t_to_bi nary :  This  routine  converts  from  fixed  decimal  to 

floating  binary  performing  a  specified 
rounding.  CMUL] 

con ver t_t o.dec ima l :  This  routine  converts  from  fixed  binary  to 

floating  decimal.  CMUL] 

conver t_fb_dec :  This  routine  converts  from  floating  binary  to 
floating  decimal  performing  a  specified  rounding. 
CMUL] 

get_ne xt_i nt.number :  This  routine  reads  the  next  interval  number 

in  the  input  stream  making  a  syntax  check  of 
the  number.  CMUL] 

round.dec:  This  routine  performs  a  specified  rounding  of  a 
decimal  number.  CMUL] 

get.char:  This  routine  returns  the  next  character  in  the  input 
stream.  This  routine  is  used  by  the 

get.next.i nt.number  routine.  It  is  written  in  Fortran. 
CMUL] 

set_input_pointer :  This  routine  sets  the  input  pointer  for  the 

get_char  routine  in  order  to  start  it  off. 
CMUL] 


2*1*8 — MistfiiidQeaus 


The  following  routines  either  fit  no  other  category  and/or  are 
used  by  routines  in  more  than  one  category. 

intrap:  This  PL/I  routine  traps  all  faults  that  can  occur  during 
an  operation  Involving  Interval  operands.  It  is  called 
by  practically  all  the  routines  in  the  package  after  an 
operation  is  performed  involving  interval  numbers.  The 
intrap  routine  displays  an  appropriate  error  message  and 
any  arguments  and  then  takes  some  action  depending  on  the 
type  of  fault  that  occurred.  The  action  taken  by  intrap 
when  a  fault  occurs  can  be  specified  by  the  user  or  a  set 
of  default  actions  can  be  taken.  Appendix  B  lists  all 
the  faults  that  can  occur  and  the  default  action  taken  by 
intrap  after  a  fault  has  occurred.  Appendix  B  also 


provides  a  description  of  how  the  user  can  change  the 
action  that  intrap  takes  after  a  particular  fault  has 
occurred.  CMULJ 

bpac68:  This  PL/I  routine  converts  a  double  precision  number  to  a 
single  precision  number  using  a  specified  rounding 
strategy.  The  double  precision  number  is  taken  to  be 
exact.  CMUL3 

bpac98:  This  PL/I  routine  converts  a  double  precision  number  to  a 
single  precision  number  where  the  accuracy  in  number  of 
bits  of  the  fraction  of  the  double  precision  number  is 
given.  CMUL3 

intas:  This  Pl/I  routine  is  used  to  allow  the  assignment  of 

interval  constants  to  interval  variables  in  a  Fortran 
program.  A  description  of  how  this  is  done  can  be  found 
in  Section  3  describing  the  writing  of  interval  Fortran 
programs.  CMULJ 

set.conmon:  This  Fortran  routine  is  used  to  set  up  the  default 
actions  taken  by  the  intrap  routine  after  a  fault  has 
occurred.  CMUL3 

finish:  This  Fortran  routine  closes  the  standard  Fortran  input 
and  output  files  and  stops  the  program.  It  is  called  by 
intrap  when  the  action  specified  for  a  particular  fault 
is  to  halt  the  program.  CMULD 

comput  :  This  Fortran  routine  is  used  to  compute  the  interval 
result  of  an  interval  function.  It  is  called  by  the 
interval  basic  external  function  routines.  CMRC3 

aidint:  This  PL/I  routine  is  used  to  return  the  double  precision 
integer  portion  of  its  double  precision  argument.  CMULJ 


lotccaai-Acilhaclit 

This  section  provides  the  user  of  the  interval  package  with  a 
guide  to  writing  interval  Fortran  programs.  An  interval  Fortran 
program  is  a  Fortran  program  in  which  the  extended  data  type 
interval  is  used.  After  an  interval  Fortran  program  has  been 
written*  it  must  be  processed  by  the  AUGMENT  precompiler  C4*S3. 
The  AUGMENT  precompiler  will  generate  the  necessary  calls  to  the 
routines  in  the  interval  package.  Fortran  programs  which  contain 
interval  variables  are  compiled  on  MULTICS  by  use  of  the  intfor 
command  which  will  automat i ca l l y  invoke  the  AUGMENT  precompiler 
for  the  user*  see  Appendix  E.  A  description  is  given  first  of 
how  to  define  the  interval  data  type  in  Fortran  and  how  to  use  it 
in  a  program.  Next  a  detailed  description  of  the  I/O  routines 
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for  interval  numbers  will  be  given.  A  sample  Fortran  program 
illustrating  the  interval  data  type  can  be  found  in  Appendix  0. 


3.1 — fifiiQiiiQQ„4Qd.Uic.Ql.ib£-lQl£i:ual.liili.lxQf 


A  variable  is  declared  in  a  Fortran  program  as  having  the 
interval  data  type  through  the  use  of  an  interval  type 
declaration  statement.  The  key  word  for  the  interval  type 
declaration  statement  is  "INTERVAL".  For  example#  if  the 
statem  ent 

INTERVAL  A#B#  C ( 1 0) 

appeared  in  the  Fortran  program#  then  the  scalar  variables  A  and 
B  would  have  the  type  interval  and  C  would  be  an  interval  vector 
of  10  elements.  The  key  word  "INTERVAL"  can  appear  in  any 
context  that  the  standard  type  key  words  (i.e.  REAL#  DOUBLE 
PRECISION#  etc.)  can  appear.  For  example#  if  the  statement 

IMPLICIT  INTERVAL  CA-Z) 

appeared  in  the  Fortran  program#  then  all  variables  beginning 
with  the  letters  A-Z  would  default  to  type  interval. 

All  of  the  standard  arithmetic  operators  are  defined  for  the 
interval  data  type.  All  implicit  conversions  from  interval  to 
the  standard  types  and  from  the  standard  types  to  interval  are 
defined  except  for  conversion  from  logical  to  interval  and 
interval  to  logical.  The  interval  data  type  always  takes 
precedence  in  an  implicit  conversion.  All  relational  operators 
are  defined  between  interval  data  types.  All  cases  of 
exponentiation  between  the  interval  data  type  and  the  standard 
types  are  defined  except  for  the  standard  types  logical  and 
complex.  There  are  two  new  operators  that  act  on  interval 
operands.  These  operators  are  .INSCT.  which  finds  the 
intersection  of  two  intervals  and  .UNION.  which  finds  the  union 
of  two  intervals.  For  example#  if  A#  B#  and  C  are  of  type 
interval#  then  the  statement 

A  »  B  .INSCT.  C 

finds  the  intersection  of  B  and  C  and  assigns  the  result  to  A. 
If  the  intersection  is  empty  then  an  error  message  is  displayed. 

Most  of  the  builtin  functions  of  standard  Fortran  have  been 
implemented  for  the  type  interval.  The  following  are  the  builtin 
functions  available  for  use  with  the  interval  data  type. 

ABS  -  Absolute  value 
AC0S-  Arccosine 
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AINT  -  Integer 

ALOG  -  Log  base  e 

ALOGIO  -  Log  base  10 

ASIN  -  Arcsine 

ATAN  -  Arctangent 

AT AN2  -  Arctangent  of  x/y 

COS  -  Cosine 

COSH  *  Hyperbolic  cosine 

DOLE  -  Converts  to  double  precision 

EXP  -  Exponential 

FLOAT  -  Converts  to  real 

IFIX  -  Converts  to  integer 

SIN  -  Sine 

SINH  -  Hyperbolic  sine 

SORT  -  Square  root 

TAN  -  Tangent 

TANH  -  Hyperbolic  tangent 

All  of  the  above  builtin  functions  take  interval  arguments  and 
return  an  interval  result  except  for  the  IFIX#  FLOAT#  and  DBLE 
functions  which  return  respectively  type  INTEGER#  REAL#  and 
DOUBLE  PRECISION.  The  FLOAT  and  DBLE  functions  return  the 
midpoint  of  the  interval  argument  as  either  a  real  or  double 
precision  number.  The  IFIX  function  returns  the  integer  portion 
of  the  midpoint  of  the  interval  argument.  The  AINT  function 
computes  an  interval  with  integer  endpoints  (in  floating  point 
form)  which  contains  the  interval  argument. 

Several  builtin  functions  were  added  for  the  type  interval. 
These  functions  are  listed  and  described  below. 

COMPOS:  This  function  takes  two  real  arguments  and  returns  an 
interval  with  the  first  argument  as  the  left  endpoint  and 
the  second  argument  as  the  right  endpoint. 

DIST:  This  function  takes  two  interval  arguments  and  returns 

the  distance  between  the  intervals  as  a  real  number. 

INF:  This  function  takes  one  interval  argument  and  returns  its 

left  endpoint  as  a  real  number. 

INT8ND:  This  function  takes  two  arguments  with  the  first  argument 
being  double  precision  and  the  second  argument  integer 
and  returns  an  interval  that  contains  the  double 
precision  number.  The  integer  specifies  the  number  of 
bits  of  accuracy  of  the  double  precision  number. 

I  NTSC  T :  This  function  takes  two  interval  arguments  and  returns 
their  intersection.  Note  that  INTSCT  can  also  be  used  as 
a  binary  operator  as  described  earlier. 


LENGTH:  This  function  takes  one  interval  argument  and  returns  its 
length  as  a  real  number. 

St/P:  This  function  takes  one  interval  argument  and  returns  its 

right  endpoint  as  a  real  number. 

UNION:  This  function  takes  two  interval  arguments  and  returns 

their  union.  Note  that  UNION  can  also  be  used  as  a 
binary  operator  as  described  earlier. 

If  a  constant  is  to  be  assigned  to  an  interval  variable#  then  in 
some  cases  the  following  type  of  assignment  statement  should  be 
used. 

A  =  "interval  constant" 

where  an  interval  constant  is  defined  in  Section  3.2.  This  type 
of  assignment  statement  should  be  used  if  1)  the  interval  being 
assigned  is  not  degenerate  or  2)  a  degenerate  interval  is  being 
assigned#  but  there  will  be  conversion  error  when  converting  from 
floating  decimal  to  floating  binary.  An  example  of  this  type  of 
assignment  is  contained  in  the  Sample  interval  Fortran  program  in 
Appendix  0  even  though  it  was  not  necessary  in  that  case  to 
perform  that  type  of  assignment. 


3*2..1UlC£Xai_lQBUl£QutBUl-BfiUiiQ££ 


An  interval  constant  consists  of  1)  a  pair  of  floating  point  or 
fixed  point  numeric  constants  enclosed  in  parenthesis  or  square 
brackets  and  separated  by  a  comma  or  2)  a  single  floating  point 
or  fixed  point  numeric  constant  that  represents  a  degenerate 
interval.  The  form  of  the  floating  point  or  fixed  point  numeric 
constant  is  any  number  acceptable  as  a  floating  point  decimal 
numeric  constant  in  PL/I  with  a  maximum  of  S9  decimal  digits. 
Examples  of  interval  constants  are  shown  below: 

<  1  #  2  ) 

C3#  4  3 

1 

<  1 . Oel 5#  3.49  > 

234 . 08e1 5 

0.1 

<-5#-4) 

C-0. 1 # . 63 

<-328.42#  2.3e-14) 

<  ■ 1 # .2  ) 

An  interval  number  enclosed  in  parenthesis  or  square  brackets 
may  have  any  number  of  blanks  before  or  after  the  parenthesis  or 
square  brackets  and  comma.  The  numbers  representing  the 


endpoints  may  not  have  any  embedded  blanks.  An  interval  number 
that  represents  a  degenerate  interval  may  not  have  any  embedded 
blanks.  Note  that  a  decimal  number  that  represents  a  degenerate 
interval  may  not  be  converted  into  a  degenerate  interval 
internally.  This  is  because  not  all  fractional  decimal  numbers 
have  an  exact  representation  in  floating  binary.  For  example# 
the  decimal  number  0.1  does  not  have  a  finite  representat i on  in 
floating  binary.  Therefore  the  endpoints  of  the  resultant 
machine  representable  interval  will  not  be  equal  because  the  left 
endpoint  must  be  rounded  downward  and  the  right  endpoint  must  be 
rounded  upward  when  the  decimal  number  is  converted  to  floating 
binary  . 

lOBui.Bautiocs 

The  following  three  routines  are  used  to  read  interval  numbers. 
The  numbers  are  input  from  Fortran  file  number  S  which  is  the 
standard  Fortran  input  file.  Any  number  of  interval  numbers  can 
appear  on  each  input  line  with  1  or  more  blanks  separating  the 
interval  numbers.  The  interval  numbers  can  be  input  from  the 
terminal  or  from  a  segment  through  an  appropriate  operating 
system  1/0  attach  statement. 

Routine:  intrdv 

Purpose:  Read  interval  numbers  into  any  number  of  interval  scalar 
variables. 

Calling  sequence:  call  intrdv  (a#b#c#...#eof ) 

a#b#c#...  (output)  are  interval  scalar 
variables  into  which  the  interval  numbers  are 
to  be  read. 

eof  (output)  is  a  logical  variable  that  is  true 
if  end  of  file  is  encountered  and  is  false  if 
not. 


Exaapl es: 

In  the  following  examples  jssume  a#  b#  c#  and  d  are  interval 
scalar  variables  and  eof  is  a  logical  variable. 

Example  1 : 

call  intrdv  (a#b#eof) 

The  next  two  interval  numbers  in  the  input  stream  will  be  read 
into  the  interval  variables  a  and  b. 

Example  2: 
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call  intrdv  (a#b#c#d#eof ) 


The  next  four  interval  numbers  in  the  input  stream  are  read  into 
the  interval  scalar  variables  a*  b #  c*  and  d. 

In  both  of  the  above  examples  if  end  of  file  was  detected#  then 
the  variable  eof  would  be  set  to  true#  otherwise  it  is  set  to 
false. 

Routine:  intrdf 

Purpose:  Read  interval  numbers  into  an  interval  vector. 

Calling  sequence:  call  intrdf  (x#i#j#eof) 

x  (output)  is  an  interval  vector. 

i  (input)  is  an  integer  variable  or  constant 
specifying  the  starting  index  of  where  in  x  the 
interval  numbers  will  be  placed. 

j  (input)  is  an  integer  variable  or  constant 
specifying  the  ending  index  of  where  in  x  the 
interval  numbers  will  be  placed. 

eof  (output)  is  a  logical  variable  that  is  true 
if  end  of  file  is  encountered  and  is  false  if 
not . 


Examples : 

In  the  following  examples  assume  x  is  an  interval  vector  that  can 
contain  a  maximum  of  10  interval  numbers  and  eof  is  a  logical 
var i ab  le. 

Example  1: 

call  intrdf  (x#1#10#eof) 

The  next  ten  interval  numbers  in  the  input  stream  will  be  read 
into  the  entire  vector  x. 

Example  2: 

call  intrdf  (x#Z#?#eof) 

The  next  6  interval  numbers  in  the  input  stream  will  be  read  into 
the  interval  locations  x(2)  to  x(7). 

In  the  both  examples  above#  if  end  of  file  is  encountered  eof 
will  be  set  to  true#  otherwise  eof  will  be  false. 


21- 


Routines  intrdm 


Purpose:  Read  interval  numbers  into  an  interval  matrix  in  a  row 
by  row  fashion. 

Calling  sequence:  call  intrdm  (x*n*k*eof) 

x  (output)  is  an  interval  matrix. 

n  (input)  is  an  integer  variable  or  constant 
specifying  the  number  of  rows  to  be  considered. 

k  (input)  is  an  integer  variable  or  constant 
specifying  the  number  of  columns  to  be 
consi dered. 

eof  (output)  is  a  logical  variable  that  is  true 
if  end  of  file  is  encountered  and  is  false  if 
not . 

Examples: 

In  the  following  examples  assume  x  is  an  interval  matrix  that  can 
contain  a  maximum  of  5  rows  and  6  columns  of  interval  numbers  and 
eof  is  a  logical  variable. 

Example  1 : 

call  intrdm  (x*5*6*eof) 

The  next  30  numbers  in  the  input  stream  will  be  read  into  the 
entire  matrix  x  row  by  row  with  6  numbers  per  row  and  S  total 
rows  . 

Example  2: 

call  intrdm  (x*3*4*eof) 

The  next  12  interval  numbers  in  the  input  stream  will  be  read 
into  the  interval  matrix  x  row  by  row  with  4  numbers  per  row  and 
3  total  rows. 

In  both  examples  above*  if  end  of  file  is  encountered*  then  eof 
is  set  to  true*  otherwise  it  is  set  to  false. 

Qutaul.Bautioe& 

The  following  three  routines  are  used  to  output  interval  numbers. 
The  numbers  are  output  to  the  PL/I  standard  output  file* 
sysprint.  The  output  can  be  directed  to  a  segment  either  by  an 
I/O  attachment  or  through  a  file.output  command. 
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Routine:  intprv 


Purpose:  Output  interval  numbers  from  any  number  of  interval 
scalar  variables. 

Calling  sequence:  call  intprv  < cc *nod*nob#w i dt h*a* b#c t . . . . ) 

cc  (input)  is  a  single  character  representing 
the  carriage  control  character.  The  carriage 
control  characters  are  the  same  as  in  standard 
fortran  and  are  listed  below: 

blank  -  single  space 
0  -  double  space 
*  -  suppress  spacing 
1  -  skip  to  top  of  page 

nod  (input)  is  an  integer  variable  or  constant 
specifying  the  number  of  interval  numbers  to 
output  per  line. 

nob  (input)  is  an  integer  variable  or  constant 
specifying  the  number  of  blanks  to  insert 
between  each  interval  number  on  each  line. 

width  (input)  is  an  integer  variable  or 
constant  specifying  the  total  width  that  each 
interval  number  will  occupy  in  the  output  line. 
The  interval  number  is  output  in  the  form 
Ci.XX..XX+VY^i.XX..XX*TYD  The  number  of 

significant  digits  output  for  each  endpoint 
will  be  (width-1  3) /2. 

a»b«c*...  (input)  are  interval  scalar  variables 
to  be  output. 


Examples: 

In  the  following  examples  assume  a •  b •  c*  and  d  are  interval 
var i ab  les  . 

Exampl el: 

call  intprv  (1h  #3/ 1 5 / a /b » c  ) 

The  interval  numbers  in  the  interval  variables  a*  b t  and  c  will 
be  output  with  single  spacing.  All  three  numbers  will  be  on  the 
same  line.  One  blank  will  be  between  each  interval  number.  Each 
interval  number  will  occupy  25  columns  providing  6  significant 
digits  for  each  endpoint. 


-23- 


E  x  a  mp  l  e  2  s 

call  intprv  (”0" # 3# 5 #33 #a#b#c #d ) 

The  interval  numbers  in  the  interval  variables  a#  b#  c/  and  d 
will  be  printed  with  double  spacing,  a #  b  and  c  will  be  on  one 
line  with  d  on  the  next  line.  There  will  be  five  spaces  between 
each  interval  number.  Each  interval  number  will  occupy  33 
columns  providing  10  significant  digits  for  each  endpoint. 

Routine:  intpr 

Purpose:  Output  interval  numbers  from  an  interval  vector. 

Calling  sequence:  call  intpr  (c c#nod#nob# wi dth#x# i #  j ) 

cc#  nod#  nob#  and  width  are  the  same  as  for 
intprv. 

x  (input)  is  an  interval  vector. 

i  (input)  is  an  integer  variable  specifying  the 
starting  index  in  the  interval  vector  x  from 
where  output  is  to  start. 

j  (input)  is  an  integer  variable  specifying  the 
ending  index  in  the  interval  vector  x  where 
output  is  to  stop. 

Ex  amp l es : 

In  the  following  examples  assume  x  is  an  interval  vector  that  can 
contain  a  maximum  of  10  interval  numbers. 

Example  1: 

call  intpr  ("  ”#  2  #1  0#  35  #  x  #1  #1 0  ) 

The  interval  numbers  in  the  entire  interval  vector  x  will  be 
output  with  single  spacing.  There  will  be  two  interval  numbers 
per  line.  Ten  blanks  will  be  between  each  interval  number.  Each 
interval  number  will  occupy  35  columns  providing  11  significant 
digits  for  each  endpoint. 

Ex ampl e  2 : 

call  intpr  (1  h0#5#1  #25#  x#3#9) 

The  7  interval  numbers  in  interval  locations  x(3)  to  x<9>  will  be 
printed  with  double  spacing.  There  will  be  five  interval  numbers 
per  line.  One  blank  will  be  between  each  interval  number.  Each 
interval  number  will  occupy  25  columns  providing  6  significant 
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digits  for  each  endpoint. 

Routine:  intprm 

Purpose:  Print  interval  numbers  from  an  interval  matrix. 

Calling  sequence:  call  intprm  ( cc#nod#nob #w i dt h# x#n#k ) 

cc#  nod/  nob#  and  width  are  the  same  as  for 
i n  tprv. 

x  (input)  is  an  interval  matrix. 

n  (input)  is  an  integer  variable  or  constant 
specifying  the  number  of  rows  of  the  interval 
matrix  to  output. 

k  (input)  is  an  integer  variable  or  constant 
specifying  the  number  of  columns  of  the 
interval  matrix  to  output. 

Exampl es: 

In  the  following  examples  assume  x  is  an  interval  matrix  that  can 
contain  a  maximum  of  7  rows  and  5  columns  of  interval  numbers. 

Example  1 ; 

call  intprm  ( "  ",  5# 1 #2 5#x #7 , 5) 

The  interval  numbers  in  the  entire  interval  matrix  x  will  be 
printed  with  single  spacing.  There  will  be  five  interval  numbers 
per  line.  One  blank  will  be  between  each  interval  number.  Each 
interval  number  will  occupy  25  columns  providing  6  significant 
digits  for  each  endpoint. 

Example  2: 

call  intprm  ( "0"#4# 5 # 27# x# 6, 4) 

The  interval  numbers  in  the  first  6  rows  and  4  columns  of  the 
interval  matrix  x  will  be  printed  with  double  spacing.  There 
will  be  four  interval  numbers  per  line.  Five  blanks  will  be 
between  each  interval  number.  Each  interval  number  will  occupy 
27  columns  providing  7  significant  digits  for  each  endpoint. 
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The  details  of  the  mathematical  basis  for  interval  arithmetic  are 
developed  in  Moore  C63.  The  set  of  interval  numbers  Is  the  set 
of  all  closed  intervals  on  the  real  number  line.  An  interval  may 
be  represented  by  an  ordered  pair  of  real  numbers  Ca*b3  where  a  £ 
b.  if  a  '  b*  then  the  interval  is  said  to  be  degenerate. 

The  operations  of  addition*  subtraction*  multiplication*  and 
division  between  two  intervals  (except  for  the  division  of  one 
interval  by  an  interval  containing  zero)  are  defined  as  follows 
where  S  is  one  of  the  above  operations: 

Ca*b3  S  Cc*d3  »  (x  $  y  :  x  6  Ca*b3  and  y  €  Cc*d3> 

Each  of  the  operations  of  addition*  subtraction*  multiplication* 
and  division  may  be  defined  as  follows: 

Ca*b3  ♦  Cc*d3  *  Ca  +  c *b+d 3 

Ca*b3  -  Cc*d3  =  Ca-d*b-c3 

Ca*b3  *  Cc*d3  *  Cm i nCa c *a d *bc * bd>*ma x( a c *  ad *b c *bd>3 

Ca*b3  /  Cc*d3  =  Cmi nCa/c*a/d*b/c*b/d>*max{a/c*a/d*b/c*b/d>3 
if  0  f  C  c  *  d  3 

In  the  cases  of  multiplication  and  division*  by  examining  the 
signs  of  the  endpoints  of  the  intervals  being  multiplied  or 
divided;  a  determination  in  advance  can  be  made  of  which  products 
or  quotients  will  be  the  maximum  and  the  minimum. 

The  following  real  single  valued  functions  of  intervals  may  be 
useful : 

The  midpoint  of  an  interval*  mid  (Ca*b3>*  is  defined  to  be  the 
real  number  (a+b)/2. 

The  length  of  an  interval*  length  <Ca*b3)*  is  defined  to  be  the 
rea  l  number  b-a. 

The  supremum  of  an  interval*  sup  (Ca*b3>*  is  the  real  number  a. 

The  infimum  of  an  interval*  inf  (Ca*b3)*  is  the  real  number  b. 

The  distance  from  interval  Ca*b3  to  interval  Cc*d3*  dis 
< Ca *b3 *Cc *d3  )  *  is  defined  to  be  the  real  number  ma x<  I  c-a I  * Id-b I >. 

The  following  interval  single  valued  functions  of  intervals  may 
also  be  useful: 
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The  union  of  intervals  Ca#b3  and  Ce#d3#  union  <Ca# b]#Ce#dJ)#  is 
defined  to  be  the  smallest  interval  containing  both  Ca#b3  and 
Ce#d3  and  is  given  by  Cmi n{a#c>#max<b#d>3.  The  intersection  of 
intervals  Ca#b3  and  Cc'd3#  intsct  (Ca#b3#Ce#d3>#  is  defined  to  be 
the  largest  interval  contained  in  each  of  Ca#b3  and  Cc#d3  or  is 
empty  if  Ca#b3  and  Cc#d3  are  disjoint  intervals  and  is  given  by 
Cmax<a#c>#min{c#d>3. 

The  relational  operations  may  be  defined  on  intervals  as  follows: 

Ca#b3  *  Cc#d3  if  and  only  ifa*b*c*d 

The  above  definition  means  that  two  intervals  are  equal  if  and 
only  if  they  both  are  degenerate  and  represent  the  same  real 
number.  This  definition  is  employed  instead  of  the  more  general 
definition  of  testing  for  a  a  c  and  b  *  d.  The  reason  the  more 
general  definition  is  not  used  is  because  we  will  regard 
intervals  as  bounds  on  an  exact  but  unknown  real  number.  If  two 
intervals  were  not  degenerate  and  if  both  intervals  had  the  same 
endpoints#  then  the  intervals  may  not  represent  the  same  exact 
real  number.  The  only  way  for  the  two  intervals  to  represent  the 
same  exact  real  number  is  for  both  intervals  to  be  degenerate 
with  their  endpoints  equal  to  the  real  number.  We  also  say  that 

Ca#b]  t  Cc#d3  if  and  only  if  Ca#b3  intersection  Cc#d3  *  t> 

This  definition  means  that  two  intervals  are  not  equal  if  and 
only  if  they  are  disjoint  intervals  and  cannot  represent  the  same 
exact  real  number. 

Ca#b3  <  Cc#d3  if  and  only  if  b  £  e 

The  above  definition  means  that  two  intervals  are  ordered  by  the 
£  relational  operator  if  and  only  if  ¥  x  €  Ca#b3  and  ¥  y  €  Cc#d3# 
*  i  y. 


Ca#b3  >  Cc#d3  if  and  only  if  a  >  d 

The  above  definition  means  that  two  intervals  are  ordered  by  the 
>  relational  operator  if  and  only  if  ¥  x  €  Ca#b3  and  ¥  y  €  Cc#d3# 
x  >  y . 

Interval  valued  functions  of  interval  variables  are  defined  in 
terms  of  real  valued  functions  of  real  variables.  If  f  is  a  real 
valued  function  of  a  real  variable#  then  f  may  be  extended  to  an 
interval  valued  function#  F #  of  an  interval  variable  by  defining 

F(Ca#b3)  »  If  (x)  :  x  €  Ca#b3> 

If  f  is  defined  and  continuous  on  Ca#b3#  then  F(Ca#b3)  will  be  an 
interval.  If  intervals  are  to  represented  as  pairs  of  real 
numbers#  then  the  above  definition  is  not  operational.  Some 
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means  is  needed  for  deriving  the  endpoints  of  the  image  of  Ca*bJ 
under  the  function  F.  The  endpoints  of  the  image  interval  will 
be  the  image  under  f  of  points  of  Ca*b3. 

For  functions*  f*  that  are  monotonic  on  the  interval  Ca*b3#  the 
endpoints  of  the  image  of  Ca*b3  under  F  can  be  expressed  as  the 
result  of  the  function  f  evaluated  at  the  endpoints  of  Ca*b3.  If 
f  is  monotonic  increasing  on  Ca*b3*  then  F(Ca*b3)  *  Cf(a>*  f(b>3. 
If  f  is  monotonic  decreasing  on  Ca*b3*  then  F(£a*b3)  *  [  f(b>* 
f(a)  3.  If  f  is  not  monotonic  over  £a*b3*  then  £a*b3  can  be 
divided  into  disjoint  subintervals;  X(i>*  i  »  1*2*3*. ..n;  where  U 
x(i)  *  Ca*b3  and  f  is  monotonic  on  each  X(i).  In  this  case 
F ( C  a*b  3)  *  U  f (X ( i )  )  . 
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The  following  table  lists  the  possible  fault  conditions  that  can 
arise  during  an  interval  operation  along  with  the  value  of  the 
fault  flag  and  the  default  action  code  that  specifies  the  action 
taken  by  intrap  after  it  is  called.  The  action  code  is  explained 
after  the  table. 


Fault  Flag  Fault  Condition  Default  Response 


Left  Endpoint 

Right  Endpoint 

0 

no  faults 

no  faults 

— 

1 

no  faults 

overflow 

3 

2 

no  faults 

infinity 

2 

3 

no  faults 

underf 1 ow 

0 

4 

over f low 

no  faults 

3 

5 

overf low 

overflow 

3 

6 

over  f low 

infinity 

2 

7 

overf low 

underflow 

3 

8 

infinity 

no  faults 

2 

9 

infinity 

overflow 

2 

10 

infinity 

infinity 

2 

11 

infinity 

underf low 

2 

12 

under  f low 

no  faults 

0 

13 

underf low 

overf low 

3 

14 

underf low 

infinity 

2 

15 

underf  low 

underf low 

0 

16 

di  vi si  on 

by  zero 

2 

17 

zero  to  the  zero  power 

1 

18 

square  root  of  a  negative  number 

2 

19 

log  of  a 

non-positive  number 

2 

20 

underflow 

during  i n t erva l- t o- rea l 

0 

21 

overflow 

during  i nterval-to-real 

2 

22 

intersection  of  disjoint  intervals 

2 

23 

arg  umen  t 

out  of  range 

2 

24 

underf low 

during  i nt erva l-t o-doub l e 

2 

25 

underf l ow 

2 

26 

overf low 

2 

% 
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The  action  codes  are  as  follows: 

0  -  Exit 

1  -  Print  error  message  and  arguments 

2  -  Print  error  message*  arguments  and  trace  stack 

3  -  Print  error  message*  arguments*  trace  stack  and  stop 

The  arguments  that  are  displayed  are  the  arguments  of  the  calling 
program.  Three  arguments  are  always  passed  to  intrap*  If  the 
calling  program  had  only  two  arguments*  then  the  first  two 
arguments  passed  to  intrap  have  the  same  value  as  the  first 
argument  of  the  catling  routine.  If  the  calling  routine  has  only 
one  argument*  then  all  three  arguments  passed  to  intrap  have  the 
same  value  as  that  argument. 


iQl£dfi-0Qdili££lifiQ 

Under  certain  circumstances  the  user  may  wish  to  change  the 
default  action  taken  by  intrap  when  a  fault  occurs.  The  user  may 
also  wish  to  change  the  value  assigned  as  the  result  of  an 
operation  in  order  to  be  more  mathematically  consistent  with  the 
problem  to  be  solved.  The  user  can  modify  the  action  taken  by 
intrap  by  including  the  following  statements  in  the  user's 
Fortran  program. 

common  /i nt  f 1 1 /  i f aul t *  rout  in*  t ype (3 )* i tgarg(3)*rarg(3)*darg<3>* 
itvagr(2*3)*montor(32> 

integer  type 
character*6  routin 
rea  l  i  tvarg 
double  precision  darg 

"ifault"  will  contain  the  fault  flag  after  each  operation. 

"routin”  will  contain  a  character  string  which  is  the  name  of  the 
last  routine  to  call  intrap. 

"type"  will  contain  the  types  of  the  last  three  arguments  passed 
to  intrap.  If  typed)  is  zero*  then  that  particular  argument  was 
not  present  in  the  call  to  intrap.  The  type  codes  are  as 
follows: 


1  -  integer 

2  -  real 

3  -  double  precision 

4  -  interval 

"itgarg"*  "rarg"*  "darg"*  and  "itvarg"  will  contain  the  arguments 
passed  to  intrap.  They  contain  respectively  either  the  integer* 
real*  double  precision*  or  interval  arguments.  For  example*  if 
typed)  *  3*  type(2)  *  1*  and  type<3)  *  4  then  dargd)  will 
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contain  the  double  precision  argument#  itgarg<2)  will  contain  the 
integer  argument#  and  itvarg(1#3>  will  contain  the  interval 
argument . 


«r 
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montor(16)  ■  3 

In  this  case  when  a  aero  divide  occurs  the  program  will  stop* 
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The  following  is  a  list  of  the  error  messages  produced  by  intrap. 

bounds  FAULT  DURING  "routine  name"  LEFT  ENDPOINT —  "fault"  RIGHT 
ENDPOINT —  "fault" 

DIVISION  BY  ZERO  DURING  "routine  name" 

ZERO  TO  THE  ZERO  POWER  DURING  "routine  name” 

SQUARE  ROOT  OF  A  NEGATIVE  NUMBER  DURING  "routine  name" 

LOG  OF  A  NON-POSITIVE  NUMBER  DURING  "routine  name" 

UNDERFLOW  DURING  CONVERSION  FROM  INTERVAL  TO  REAL  IN  "routine 
name" 

OVERFLOW  DURING  CONVERSION  FROM  INTERVAL  TO  INTEGER  iN  "routine 
name" 

INTERSECTION  OF  OISJOINT  INTERVALS  OURING  "routine  name" 

ARGUMENT  OUT  OF  RANGE  IN  "routine  name" 

UNDERFLOW  DURING  CONVERSION  FROM  INTERVAL  TO  DOUBLE  PRECISION  IN 
"routine  name" 

UNDERFLOW  IN  "rouitne  name" 

OVERFLOW  IN  "routine  name" 

UNKNOWN  ERROR  DURING  "routine  name" 
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The  following  is  a  list 

of 

the  routines 

written  for  the  interval 

pac  kag  e 

divided  into 

the 

categories 

with  the  codes  CMRClr 

CMRC/MJ, 

and  CHUL3. 

CHRCJ  - 

Original  form 

f  r  ox 

the  Mathematics  Research  Center  with 

no  modifications. 

ar i th2 

exponl 

exponZ 

convrt 

i nt  c87 

relatn 

supinf 

unints 

intbnd 

comput 

f unc t 3 

CMRC/M]  - 

Original  form  with  modifications. 

ari thl 

bpaxpA 

intc84 

i ntc85 

i nt  c86 

f unc  1 1 

length 

f unc  1 2 

funct4 

f unct5 

CMULJ  -  Written  specifically  for  the  MULTICS 

System. 

bpaadd 

bpasub 

bpamul 

bpadiv 

brounding 

unpack 

normal i ze 

shift. right 

s.agn.add 

aidint 

pack 

di  st 

i  nt  rdv 

intrdf 

i nt  rda 

i  nt  prv 

intpr 

intpra 

con vert .to. binary 

conve  rt. to. decimal 

conver t.f b.dec 

get.ne  xt. in t. number 

round. dec 

get. char 

set .input. pointer 

intrap 

bpac68 

bpac98 

intas 

set. common 

finish 
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The  following  Fortran  program  illustrates  the  use  of  the  interval 
data  type.  The  program  solves  a  set  of  linear  equations  using 
Gaussian  elimination  with  partial  pivoting.  The  program  is  just 
illustrative  of  the  interval  data  type  and  may  not  be  the  best 
method  of  solving  a  set  of  linear  equations  using  interval 
arithmetic.  A  listing  of  the  interval  progran  is  given  followed 
by  a  listing  of  the  translated  program  produced  by  AUGMENT  with 
the  calls  to  the  interval  package  routines.  Following  that  is  a 
sample  of  the  output  produced  by  the  program.  In  one  case  the 
error  trapping  capability  of  the  interval  package  is  illustrated. 
In  this  case  it  was  set  up  so  that  if  an  error  occurred  the 
program  continued. 
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INTERVAL  A(10#11)#X(10)/BIG#TERM#PIVOT#CONST#Y#TEMP 
LOGICAL  EOF 
INTEGER  VES 
DATA  YES  / 3Hyes/ 

WRITE (6*  71 0) 

FORMAT (  /  #"  ENTER  NUMBER  OF  EQUATIONS") 

READ ( 5*1 0) NN 
FORMAT ( V  ) 

M«NN 
N=M  +  1 

WRITE  <6#750) 

FORMAT!/#"  ENTER  MATRIX") 

CALL  INTROM(A#M#N/EOF) 

L  A  S  T  *  M- 1 

START  OVERALL  LOOP  FOR  M-1  PIVOTS 
DO  200  I®1 /LAST 

FIND  LARGEST  REMAINING  TERM  IN  I-TH  COLUMN  FOR  PIVOT 

BI G*"0" 

DO  50  K»  I  #  M 
TERM*ABS(A(K#I )) 

IF(TERM.LE.BIG)  GO  TO  50 

BIG*TERM 

L*K 

CONTINUE 

CHECK  WHETHER  A  NON-ZERO  TERM  HAS  BEEN  FOUND 
IF(BIG.EQ."0")  STOP 

L-TH  ROW  HAS  THE  BIGGEST  TERM  —  IS  I«L 
IF (I.EQ.L)  GO  TO  120 
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c 

C  I  IS  NOT  EQUAL  TO  Ls  SWITCH  ROWS  I  AND  L 

C 

DO  100  J*1sN 
TEMP«A< IsJ  ) 

A(IsJ)=A<Ls J) 

100  A(Ls  J )=TEMP 
C 

C  NOW  START  PIVOTAL  REDUCTION 

C 

120  PIVOT«A<IsI> 

NEX  TR  *1 ♦  1 
C 

C  FOR  EACH  OF  THE  ROWS  AFTER  THE  I-TH 

C 

DO  200  J*NEXTRsM 

CONST  IS  MULTIPLYING  CONSTANT  FOR  THE  J-TH  ROW 
CONST«A<  J,  D/PIVOT 

NOW  REDUCE  EACH  TERM  OF  THE  J-TH  ROW 
DO  2 00  K*IsN 

A(JsK)*A<JsK)-CONST*A<IsK> 

END  OF  PIVOTAL  REDUCTION  -  PRINT  REDUCED  MATRIX 
WR I TE  (  6s  501  ) 

501  FORMAT ( / s"  THE  REDUCED  MATRIX  IS  AS  F OLLOW S : "s / ) 

CALL  INTPRMI1H  s 3 s 1 s2 5s A sMsN ) 

C 

C  PERFORM  BACK  SUBSTITUTION 

C 

DO  500  I *1 s  M 
C 


C  IREV  IS  THE  BACKWARD  INDEX,  GOING  FROM  M  BACK  TO  1 

C 

IRE VaM+1 -I 
C 

C  GET  Y  IN  PREPARATION 

C 

Y*A ( I  REV ,N ) 

IF(IREV.EQ.M)  GO  TO  SOO 
C 

C  NOT  WORKING  ON  LAST  ROW,  I  IS  2  OR  GREATER 

C 

DO  450  J  =2 , I 
C 

C  WORK  BACKWARD  FOR  X<N>,  X(N-1)  ...,  SUBSTITUTING  PREVIOUSLY  FOUND 

C  VALUES 

C 

K=N+1-J 

450  YaY-A(IREV,K)*X(K) 

C 

C  FINALLY  COMPUTE  X 

C 

500  X(IREV)aY/A(IREV,IREV) 

C 

C  PRINT  VALUES  OF  X 

C 

WRI TE (6, 502  ) 

502  FORMATt/,"  THE  SOLUTION  IS  AS  F  OLLOWS :  ”,/  ) 

CALL  I  NT  PR  <  1  H  ,  1 , 0, 25,  X,  1  ,M  ) 

WRITE (6,950) 

950  FORMAT(/,m  DO  YOU  WANT  TO  CONTINUE?”) 

READ(5,975)  IRESP 
975  FORMAT (A3) 

IF (IRESP. EQ. YES)  GO  TO  910 
ENDFILE  5 
ENDFILE  6 
STOP 
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=  ==  =  =  PROCESSED  BY  AUGMENT  VERSION  ,41  «=««« 

-  TEMPORARY  STORAGE  LOCATIONS  - 

INTERVAL 

REAL  INT TMPC  2,1) 

-  LOCAL  VARIABLES  - 

LOGICAL  EOF 

INTEGER  I,  IRESP,  IREV,  J,  K ,  L,  LAST,  M,  N,  NEXTR,  NN,  YES 
INTERVAL 

REAL  A< 2,10,11 ),  BIGC2),  C0NSTC2),  PIV0TC2),  TEMPC2) ,  TERMC2 ) ,  X<2 
*  ,10),  Y  (2  ) 

-  SUPPORTING  PACKAGE  FUNCTIONS  - 

LOGICAL  INTEO,  INTLE 

=====  TRANSLATED  PROGRAM  ===== 

=  =  DATA  STATEMENTS  ARE  NOT  PROCESSED  BY  AUGMENT  =**«* 

DATA  YES  /  3Hye  s/ 

WRITE (6,710) 

FORMATC/,"  ENTER  NUMBER  OF  EQUATIONS") 

READ ( 5,1 0) NN 
FORMAT ( V ) 

M  =  N  N 
N=M  +  1 

WRITE (6, 750) 

FORMATC/,"  ENTER  MATRIX") 

CALL  INTRDMC A,M,N,EOF) 

LAS  T=M-1 

START  OVERALL  LOOP  FOR  M-1  PIVOTS 
DO  30000  1=1, LAST 

FINO  LARGEST  REMAINING  TERM  IN  I-TH  COLUMN  FOR  PIVOT 

CALL  INTAS  C"0",BIG) 

00  50  K  =  I , M 

CALL  INTABS  C A (1 ,K , I ) , TE RM) 

IF  CINTLE  (TERM, BIG))  GO  TO  50 
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CALL  INTSTR  (T  ERM^BIG) 

L»K 

SO  CONTINUE 

C 

C  CHECK  WHETHER  A  NON-ZERO  TERM  HAS  BEEN  FOUND 

C 

C  sas*s  MIXED  MODE  OPERANDS  ACCEPTED  asssr 
CALL  INTAS  (  "O'M  N  TTMPI  1  ,  1  )  > 

IF  ( I NTEQ  (BI6/INTTMP(1/1  )))  STOP 
C 

C  L-TH  ROW  HAS  THE  BIGGEST  TERM  —  IS  I*L 

C 

IF(I.tQ.L)  GO  TO  1 20 
C 

C  I  IS  NOT  EQUAL  TO  L »  SWITCH  ROWS  I  AND  L 

C 

DO  100  J*1,N 

CALL  INTSTR  < A (1 , I , J ) , TE MP) 

CALL  INTSTR  (A(lsLsJ)sA(lsIsJ)) 

100  CALL  INTSTR  ( T  EMP  #  A  < 1 #L*  J  )  ) 

C 

C  NOW  START  PIVOTAL  REDUCTION 

C 

120  CALL  INTSTR  ( A ( 1 , I , I ) , P I  V OT ) 

NEXTR=I*1 

C 

C  FOR  EACH  OF  THE  ROWS  AFTER  THE  I-TH 

C 

DO  30000  J  =NE X TR#M 
C 

C  CONST  IS  MULTIPLYING  CONSTANT  FOR  THE  J-TH  ROW 

C 

CALL  INTOIV  (A <1,J, I), PIVOT, CONST) 

C 

C  NOW  REOUCE  EACH  TERM  OF  THE  J-TH  ROW 

C 
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200 

30000 

C 

C 

C 

501 

C 

C 

C 

C 

C 

C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

450 

30001 

C 


00  30000  K«I*N 

CALL  INTMUL  <C0NST*A(1*I*K)*INTTMP(1*1  )) 

CALL  INTSUB  (A(1*J*K)* I NT  TMP (1*1)*A(1*J*K)) 

CONTINUE 

END  Of  PIVOTAL  REDUCTION  -  PRINT  REDUCED  MATRIX 
WRITE (6*501 ) 

FORMAT!/*"  THE  REDUCED  MATRIX  IS  AS  FOLLOWS:"*/) 

CALL  INTPRM (1  H  *  3 *  1  *  2 5* A  * M*N ) 

PERFORM  BACK  SUBSTITUTION 

DO  500  I=1*M 

IREV  IS  THE  BACKWARD  INDEX*  GOING  FROM  M  BACK  TO  1 
IRE V=M*1 -I 

GET  Y  IN  PREPARATION 

CALL  IN  T  ST  R  < A ( 1  *  I R E V* N) * Y) 

IF( IREV.EQ.M)  GO  TO  500 

NOT  WORK  I N6  ON  LAST  ROW*  I  IS  2  OR  GREATER 
DO  30001  J«*2*I 

WORK  BACKWARD  FOR  X<N>*  X <N-1  )  ...*  SUBSTITUTING  PREVIOUSLY  FOUN0 
VALUES 

K*N>1-J 

CALL  INTMUL  (  A  <1  *  I  R E V*K ) *  X < 1 *K ) *  I NTTMP ( 1  * 1 ) ) 

CALL  INTSUB  ( Y *  I NTTMP < 1  *  1 ) * Y ) 

CONTINUE 
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C  FINALLY  COMPUTE  X 

C 

S00  CALL  INTO  IV  (YsA(1#IREV#IREV)#X(1#IREV)) 
PRINT  VALUES  OF  X 
WRITE (6/ 502 ) 

502  FORMAT (  /*"  THE  SOLUTION  IS  AS  FOLLOWS  :"#/ > 
CALL  I NT PR ( 1 H  , 1 , 0, 2 5, X , 1 ) 

WRITE (6/950) 

950  FORMAT(/,"  DO  YOU  WANT  TO  CONTINUE?") 

READ( 5#9  75 )  IRESP 

975  FORMA  T ( A3) 

IF (IRESP. EQ. YES)  GO  TO  910 

ENDFILE  5 

ENDFILE  6 

STOP 

ENO 
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ENTER  NUMBER  OF  EQUATIONS 
2 


ENTER  MATRIX 
5  3  6 

1  8  4 

THE  REDUCED  MATRIX  IS  AS  FOLLOWS: 

£  .500000+01 /  .500000+013  £  .300000+01,  .300000+013  C  .600000+01#  .6000001 

£-.149012-07#  .745059-083  C  .739999+01#  .740001+013  £  .279999+01#  .28000T| 

THE  SOLUTION  IS  AS  FOLLOWS: 

£  .972972+00#  .972973+003 
£  .378378+00#  .378379+003 

DO  YOU  WANT  TO  CONTINUE? 
yes 

ENTER  NUMBER  OF  EQUATIONS 
3 

ENTER  MATRIX 
5  3  6  8 

2  8  3  1 
9  4  6  2 

THE  REDUCED  MATRIX  IS  AS  FOLLOWS: 

C  .900000+01#  .900000+013  £  .400000+01#  .400000+013  £  .600000+01#  .6000004 

£  .200000+01#  .200000+013  1 

C-. 298024-07#  .149012-073  C  .711111+01#  .711112+013  £  .166666+01#  .1666674 

£  .555555+00#  .555556+003  j 

£-.596047-07#  .596047-073  £-.447035-07#  .447035-073  £  .248437+01#  .24843*1 

£  .682812+01#  .682813+013 


"1 

J 
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THE  SOLUTION  IS  AS  FOLLOWS: 

C-. 135850+01 #-.135849+01 3 
C-. 566038+00#-. 566037+003 
C  .274842+01#  .274843+013 

DO  YOU  WANT  TO  CONTINUE? 
yes 


ENTER  NUMBER  OF  EQUATIONS 
2 


ENTER  MATRIX 
C1#23  £5 #63  C8  #9  3 
Cl  2  #1 3  3  C3#43  C15#163 


THE  REDUCED  MATRIX  IS  AS  FOLLOWS:  J 

C  .120000+02#  .130000+023  E  .300000+01#  .400000+013  C  .150000+02#  .I600f 

C-. 116667+01#  .107693+013  C  .433333+01#  .576924+013  C  .533333+01#  .784*9 

THE  SOLUTION  IS  AS  FOLLOWS:  J 

C  .596722+00#  .110223+013 
C  .924444+00#  .181066+013 

DO  YOU  WANT  TO  CONTINUE? 
yes 

ENTER  NUMBER  OF  EQUATIONS  | 

2  1 

ENTER  MATRIX  1 

111  H 

2  2  2 


1 


a 
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THE  REOUCED  MATRIX  IS  AS  FOLLOWS: 


C  .200000  +  01  # 

C  .000000+00, 


.200000+013  Z 
.000000+003  C 


. 2  00000+01 # 
.000000+00# 


.200000+013  C 
.000000+003  Z 


.200000+01#  .2001 
.000000+00#  .000( 


DIVISION  BY  ZERO  DURING  intdiv 
ARGUMENT  1  *  C  .00000000000000000000000000+00# 
ARGUMENT  2  »  C  .00000000000000000000000000+00# 
RESULT  *  C-.1 70 14118219281863150 34 5? 91 +39# 


. 000000000000000000000001 
. 000000000000000000000001 
.170141182192818631503451 


************************************************************************* 

*********************************************************************** *1 
BOUNDS  FAULT  DURING  intmul  LEFT  ENDPOINT — INFINITY  RIGHT  ENDPOINT— INF1M1 
ARGUMENT  1  ^  [  .20000000000000000000000000+01#  .200000000000000000000001 
ARGUMENT  2  *  C -. 1 701 41 1 821 92 81 8631 50345791 +39#  . 1 70141 1821 9281 8631 503453 
RESULT  =  C-. 17014118219281863150345791+39#  .17014118219281863150345791 

************************************************************************ *< 

******  ******************************************************************** 
BOUNDS  FAULT  DURING  intsub  LEFT  ENDPOINT— NO  FAULTS  RIGHT  ENDPOINT — INF  INI 
ARGUMENT  1  =  C  .20000000000000000000000000+01#  .200000000000000000000001 
ARGUMENT  2  =  C-.  1  701  4 1 1  8  21 9281  8631  50345791 +3  9#  . 1 701 4 1 1 821 9281 8631 503457911 
RESULT  *  17014118219281863150345791+39#  .17014118219281863150345791 

************************************************************************1 

THE  SOLUTION  IS  AS  FOLLOWS: 

C-. 850706+38#  .850706+383 
C-. 170142  +  39#  .1  70142+393 

DO  YOU  WANT  TO  CONTINUE? 
no 

STOP 
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Function:  translates  interval  fortran  programs  into  standard 
Fortran  and  compiles  the  translated  segment  if  requested* 

Syntax:  intfor  path  -cont rol.ar gs- 

Arguments:  path  is  the  pathname  of  an  interval  Fortran  source 
segment/  a  suffix  of  ".interval"  is  assumed  and  need  not  be 
given. 

Control  arguments:  -no. translat ed. source#  -nts  does  not 
create  the  translated  Fortran  segment  in  the  current  working 
directory;  default  is  to  create  a  translated  source  segment  with 
the  suffix  ". fortran ".  Any  error  messages  produced  during 
translation  will  be  in  this  segment  (see  Notes  below). 

-convert. real.to. interval#  -cri  all  variables  of  type  real  in  the 
source  will  be  considered  to  have  the  type  interval. 

-no.compile#  -nc  the  translated  source  will  not  be  compiled; 
default  is  to  compile. 

-force.compi le#  -fc  there  will  be  an  attempt  to  compile  the 
translated  source  even  if  there  are  errors  during  the 
transl at i on. 

-augment. I i st#  -als  a  segment  is  produced  by  the  AUGMENT 
precompiler  (see  Notes  below)  that  consists  of  a  listing  of  the 
input  source  segment  passed  to  AUGMENT.  Any  error  messages 
produced  during  translation  will  also  be  in  this  segment.  The 
segment  will  have  the  suffix  "agm.list" 

The  rest  of  the  control  arguments  are  any  arguments  acceptable  to 
the  Fortran  compiler.  These  arguments  will  be  passed  to  the 
Fortran  compiler  if  a  compilation  is  to  be  performed. 

Notes:  The  intfor  command  uses  the  AUGMENT  precompiler  to 
produce  the  translated  source.  AUGMENT  will  display  how  many 
errors  there  were  in  the  processing  or  translation  phase.  The 
error  messages  will  be  in  the  translated  source  segment  next 
to  the  statement  that  caused  the  error.  Therefore  if  a  program  is 
being  translated  for  the  first  time#  a  translated  source  segment 
should  be  created  in  case  there  are  errors.  The  error  messages 
can  be  located  in  the  translated  source  segment  by 
searching  for  the  character  string  '•*****"  which  is  attached  to 
each  error  message. 

Currently  the  input  segment  must  be  in  the  standard  Fortran  80 
column  format  using  all  uppercase  letters. 
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In  order  to  run  an  interval  prograo  the  user  oust 
rules  set  to  search  the 

>udd>beta>r&d>a.r£d>int_rout ines.  This  setting 
rules  can  be  done  by  a  "ssr  >udd>beta> r&d>a 
running  the  interval  prograo. 


have  the  search 
di rectory 
of  the  search 
r&d>isr"  before 
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